|
_БеСеДк@_
|
|
| Китапов_Рустэм | Дата: Четверг, 09.09.2010, 22:29 | Сообщение # 1 |
 АДМИН
Группа: Администраторы
Сообщений: 1
Статус: Offline
| ____БеСеДка____
|
| |
| |
| H@nter2033 | Дата: Вторник, 14.09.2010, 18:55 | Сообщение # 2 |
|
человек умный
Группа: Проверенные
Сообщений: 1
Статус: Offline
| я за штурвалом 
|
| |
| |
| Snoopp | Дата: Четверг, 16.09.2010, 19:20 | Сообщение # 3 |
 без позвоночное
Группа: Проверенные
Сообщений: 4
Статус: Offline
| чЁ тут?
|
| |
| |
| Snoopp | Дата: Четверг, 16.09.2010, 19:21 | Сообщение # 4 |
|
без позвоночное
Группа: Проверенные
Сообщений: 4
Статус: Offline
| Сделай мне тоже чтоб был не рядовой а АДМИН по рангу, мне в лом =)))
|
| |
| |
| Snoopp | Дата: Четверг, 16.09.2010, 19:22 | Сообщение # 5 |
|
без позвоночное
Группа: Проверенные
Сообщений: 4
Статус: Offline
| Как ты подпись сделал? кинь код я себе тоже сделаю, только с банером рекламным.
|
| |
| |
| [BT]Basharov | Дата: Воскресенье, 19.09.2010, 23:32 | Сообщение # 6 |
 Правитель мира
Группа: Администраторы
Сообщений: 10
Статус: Offline
| фотки на линк ми и ссылки кидайте не загрезняйте форум
|
| |
| |
| Snoopp | Дата: Четверг, 18.11.2010, 20:32 | Сообщение # 7 |
|
без позвоночное
Группа: Проверенные
Сообщений: 4
Статус: Offline
| эээ кто меня так подписал???
|
| |
| |
| [BT]Basharov | Дата: Среда, 08.12.2010, 11:38 | Сообщение # 8 |
|
Правитель мира
Группа: Администраторы
Сообщений: 10
Статус: Offline
| алг КП
нач цел n,m,a,b
вывод 'введите целые числа n и m'
ввод n,m
вывод 'делится ли число m на n?'
если mod (n,m)=0 то вывод div (n,m) все
вывод 'm на n нацело не делится'
вывод 'введите целые числа a и b'
ввод a,b
вывод 'делится ли число b на a?'
если mod (a,b)=0 то вывод 'число b делится на a' все
вывод 'введите натуральное число n'
ввод n
вывод 'является ли оно четным или оканчивается цифрой 7'
если mod (n,2)=0 то вывод 'является четным' все
если mod (n,10)=7 то вывод 'оканчивается цифрой 7' все
вывод 'введите двузначное число'
ввод n
вывод 'какая из этих цифр больше или одинаковы?'
если div (n,10)>mod (n,10) то вывод div (n,0) все
если mod (n,10)>div (n,10) то вывод mod (n,10) все
если div (n,10)=mod (n,10) то вывод 'цифры одинаковы' все
кон
|
| |
| |
| AL | Дата: Среда, 08.12.2010, 11:45 | Сообщение # 9 |
 головастик
Группа: Проверенные
Сообщений: 1
Статус: Offline
| всегда теперь так выкладывайте сюда на информатике
|
| |
| |
| [BT]Basharov | Дата: Среда, 23.03.2011, 11:29 | Сообщение # 10 |
|
Правитель мира
Группа: Администраторы
Сообщений: 10
Статус: Offline
| алг погоня
нач цел P,d,K,S
K:=7; S:=9; d:=150;
P:=0
нц пока d<>0
d:=d-(S-K)
P:=P+1
кц
вывод "P=",P
кон
|
| |
| |
| [BT]Basharov | Дата: Среда, 23.03.2011, 11:38 | Сообщение # 11 |
|
Правитель мира
Группа: Администраторы
Сообщений: 10
Статус: Offline
| алг население
нач вещ p,k,n,l
n:=620000;k:=1980;p:=0.037
нц пока n<=1500000
n:=n+(n*p)
k:=k+1
кц
вывод "k=",k
кон
|
| |
| |
| [BT]Basharov | Дата: Среда, 18.05.2011, 10:34 | Сообщение # 12 |
|
Правитель мира
Группа: Администраторы
Сообщений: 10
Статус: Offline
| Uses Crt;
var text : String;
i, number : Integer;
letter : Char;
begin ClrScr;
WriteLn('Введете текст :'); ReadLn(text);
Number:=1;
for i:=1 to length(text) do
begin
letter:= Text[i];
if(letter = ' ')then Number:= Number+1;
end;
writeLn('Ответ: количество слов в тексте равно ',Number);
end.
|
| |
| |
| [BT]Basharov | Дата: Среда, 18.05.2011, 10:50 | Сообщение # 13 |
|
Правитель мира
Группа: Администраторы
Сообщений: 10
Статус: Offline
| Program TurnOver;
Uses Crt;
Var Slovo : String;
Dlina, i : Integer;
Flag : boolean;
Begin
ClrScr;
write ('Введите слово: '); ReadLn(Slovo);
Dlina := Length(Slovo);
i:=1;
Flag:= TRUE;
while (i<=Dlina/2) and flag do
begin
flag:= (Slovo[i]=Slovo[Dlina-i+1]);
i:=i+1
end;
WriteLn; Write('Ответ: Слово', Slovo);
if flag then WriteLn('-перевертыш.')
else WriteLn ('-не перевертыш.');
ReadLn
end.
|
| |
| |
