Здесь вы можите задавать ваши вопросы по программированию в Паскале.
Даже оставлять задачи, которые нужно решить на языке программирования Паскаль.
Они обязательно будут решены в ближайшие сроки!
ПРограмирование на языке Pascal
Страница: 1
Сообщений 1 страница 8 из 8
Поделиться12011-04-08 16:15:58
- Модератор
- Откуда: KD^State
- Зарегистрирован: 2011-04-08
- Приглашений: 0
- Сообщений: 19
- Уважение: +3
- Позитив: +1
- Пол: Мужской
- Возраст: 32 [1993-05-17]
- Провел на форуме:
2 часа 55 минут - Последний визит:
2011-04-22 15:25:39
Поделиться22011-04-08 23:27:42
100500 пудов все сделаешь?))
Поделиться32011-04-09 13:28:38
- Модератор
- Откуда: KD^State
- Зарегистрирован: 2011-04-08
- Приглашений: 0
- Сообщений: 19
- Уважение: +3
- Позитив: +1
- Пол: Мужской
- Возраст: 32 [1993-05-17]
- Провел на форуме:
2 часа 55 минут - Последний визит:
2011-04-22 15:25:39
+100500 сделаю)))
Поделиться42011-04-11 22:05:48
1)Дано натуральное число:
-Найти сумму цифр этого числа;
-Верно ли, что число начинается и заканчивается одной и той же цифрой?
2)Дано натуральное число. Приписать к нему такое же число.
3)Найти все натуральные числа из промежутка от 1 до 200, у которых количество делитилей равно N (N вводится с клавиатуры)
Поделиться52011-04-11 22:45:55
- Модератор
- Откуда: KD^State
- Зарегистрирован: 2011-04-08
- Приглашений: 0
- Сообщений: 19
- Уважение: +3
- Позитив: +1
- Пол: Мужской
- Возраст: 32 [1993-05-17]
- Провел на форуме:
2 часа 55 минут - Последний визит:
2011-04-22 15:25:39
RaIkOn написал(а):
1)Дано натуральное число:
-Найти сумму цифр этого числа;
-Верно ли, что число начинается и заканчивается одной и той же цифрой?
Program XP;
var k,x,b,c,n:integer;
Begin
readln(k);
x:=0;
n:=k;
while n<>0 do
begin
b:=n;
x:=x+(n mod 10);
n:=n div 10;
end;
writeln('сумма цифр числа k равна ',x);
k:=k mod 10;
If b=k then writeln('да, по краям цифры одинаковые')
else writeln('Нет, по краям цифры не одинаковые');
End.
Отредактировано +МоЛ4уН+ (2011-04-11 22:48:16)
Поделиться62011-04-11 22:56:02
- Модератор
- Откуда: KD^State
- Зарегистрирован: 2011-04-08
- Приглашений: 0
- Сообщений: 19
- Уважение: +3
- Позитив: +1
- Пол: Мужской
- Возраст: 32 [1993-05-17]
- Провел на форуме:
2 часа 55 минут - Последний визит:
2011-04-22 15:25:39
+МоЛ4уН+ написал(а):
2)Дано натуральное число. Приписать к нему такое же число.
Program XP;
var k,x,b,c,n:longint;
Begin
readln(k);
n:=k;
b:=0;
while n<>0 do
begin
n:=n div 10;
b:=b+1;
end;
n:=k;
for i:=1 to b do
k:=k*10;
k:=k+n;
writeln(k);
End.
Поделиться72011-04-20 22:47:28
Пасиба =))
Поделиться82011-04-27 11:30:50
Вроде открывалась для обсуждения и помощи а стала страничка для тех кто на компьютер кидается с топором и для тех у кого мозг под тупые игры заточен 
)))))))))))))))))))
Отредактировано Mevric (2011-04-27 11:31:56)
Страница: 1
