Блок-схема - в прилагаемом файле. Программа: var n,s:integer; begin write('n = '); readln(n); n:=abs(n);s:=0; while n>0 do begin s:=s+n mod 10; n:=n div 10; end; writeln('s = ',s); end.
Var i,j,k:longint; begin for i:=1 to 1000 do for j:=1 to 1000 do for k:=1 to 10000 do if sqr(i)+sqr(j)=sqr(K)then begin writeln(i,' ',j,' ',k); {вывожу все тройки, можно убрать} if i+j+k=1000 then begin writeln('! ',i,' ',j,' ',k); {нужная тройка} exit; {прерывание программы} end; end; end.
program cube; var a : real; begin writeln('Программа вычисляет объем куба и площадь '+ 'его боковой поверхности по длине ребра'); {I - ввод + ЗОД} repeat write('Введите длину ребра куба '); readln(a); if a<=0 then writeln('Ошибка! Длина ребра не может быть нулевой или отрицательной. '+ 'Повторите ввод.'); until a>0; {II, III - расчет и вывод} writeln('Длина ребра куба = ',a:8:3,' м'); writeln('Объем этого куба = ', (a*a*a):8:3,' м^3'); writeln('А площадь его боковой поверхности = ', (6*a*a):8:3,' м^2'); writeln('Нажмите [Enter] для завершения программы'); readln; end.
var n,s:integer;
begin
write('n = ');
readln(n);
n:=abs(n);s:=0;
while n>0 do begin s:=s+n mod 10;
n:=n div 10;
end;
writeln('s = ',s);
end.
Пример:
n = -62845
s = 25