Дано семизначное число. найти и вывести сумму его цифр. вывести это число в перевёрнутом виде. можно использовать не более 4 переменных. число считывается с клавиатуры. реализовать все необходимо в одном цикле. ,напишите программу
Var q: string; a,i,z,g,b,x,m: Integer; begin z:=0; g:=1; readln(q,a,b,x,m); for i:=1 to length(q) do begin z:=z+q[i]; end; if z<a then writeln('Верно, что сумма цифр меньше А') else writeln('Неверно, что сумма цифр меньше А'); for i:=1 to length(q) do begin g:=g*q[i]; end; if g>b then writeln('Верно, что произведение цифр больше B') else writeln('Неверно, что произведение цифр больше B'); if x=length(q) then writeln('Верно, что число x значеное') else writeln('Неверно, что число x значное'); if q[0]>m then writeln('Верно, что его первая цифра превышает m') else writeln('Неверно, что его первая цифра превышает m') end.
Программа для 1. var n,b,s:integer; begin Write('Введите натуральное число и значение b: '); Read(n,b); if n>b then Writeln('Неверно') else begin s:=0; while n>0 do begin s:=s+n mod 10; n:=n div 10 end; if s mod 2=0 then Writeln('Верно') else Writeln('Неверно') end end.
Программа для 2. var k,m,n,b,s:integer; begin Write('Введите натуральное число и значения m,n: '); Read(k,m,n); if k mod n <> 0 then Writeln('Неверно') else begin s:=0; while k>0 do begin s:=s+k mod 10; k:=k div 10 end; if s>m then Writeln('Верно') else Writeln('Неверно') end end.
program raf105;
var abc,sum,i:integer;
cba:real;
begin
write('Введите семизначное число: ');
readln(abc);
for i:=7 downto 1 do
begin
sum:= sum+(abc mod 10);
cba:= cba+(abc mod 10)*(10**(i-1));
abc:= (abc-abc mod 10) div 10;
end;
writeln('Сумма цифр в числе: ',sum);
writeln('Перевёрнутое число: ',cba);
end.
Язык программирования PascalABC