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.

218

347

Посмотреть ответы 2

Ответы на вопрос:

Алиса241111

Информатика

4,4(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