Var
a, Summ:integer;
begin
write ('Введите число ');
readln (a);
Summ : = 0;
while a > 0 do
Summ : = Summ + a mod 10;
a : = a div 10;
end;
writeln ('Сумма цифр равна ', Summ);
end.
меняем строку for var... на
for var n:=k to 1 do
будет выводить значение от большего до двух
Program Zadacha;var x, y: real;Begin Write('Enter x, y '); ReadLn(x, y); WriteLn(x, ' + ', y, ' = ', x+y); WriteLn(x, ' - ', y, ' = ', x-y); WriteLn(x, ' * ', y, ' = ', x*y); WriteLn(x, ' / ', y, ' = ', x/y); ReadLn;End.
Ответ:
а)Входные программы
...........