Здравствуйте))
помогите с паскалем)
у меня система 64х и паскаль не запускаеться(( Dosbox не помог((
а мне надо программы на паскале написать)) 1) найти сумму цифр числа
2) Урожай яблок в 1990г - 20 тонн,каждый год урожай уменьшался на 20%, с какого года урожай меньше 5 тонн и в каком году суммарный урожай превысит 90т.
3) напечатать столбиком все целые числа от а до b где а<b
4) Составить программу, выводящую все четные числа от N до M (N<M)
Добавлено (2010-10-30, 2:21 PM)
---------------------------------------------
вот первая:
Code
program sdfkjh;
var a,x:integer; i,s:integer;
begin
writeln('введите целое число');
readln( a );
x:=a;
s:=0;
while ( x<>0 ) do
begin
s := s + (x mod 10);
x := x div 10;
end;
writeln( 'Сумма цифр числа ',a,' = ', s );
readln;
end.
проверте плиз)) а то сам не могу)))
RSS: