Question

3. напишите общий вид оператора «цикл с условием». 5. точно и четко сформулируйте условие , которая решается в данной программе: uses crt; var n : integer; s : byte; begin write('введите натуральное число: '); readln(n); s : = 0; while n < > 0 do begin s : = s + n mod 10; n : = n div 10 end; writeln('s = ', s : 4); end. 6. создайте программу на языке turbo pascal. 1) дано трехзначное число. найти сумму цифр этого числа. 2) найти четырехзначное число, которое при деление на 133 дает остаток 125.

Answer 1

3. 
for i:=<число типа integer> to <число типа integer> do
5. 

6.1.
program z1;
uses crt;
var x,a,b,c,s:integer;
begin
writeln('Введите 3-значное число:');
readln(x);
a:=x div 100;
b:=x mod 100 div 10;
c:= x mod 10;
s:=a+b+c;
writeln(s);
end.

6.2.
program z1;
uses crt;
var x,a,b,c,s:integer;
begin