РЕБЯТ ПОМОГИТЕ ПОЖАЛУЙСТА УМОЛЯЯЯЯЮ!!!!!!!!!!!!! 3. Напишите общий вид оператора «Цикл с...

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

Comments

погоди, щас допишу

---

for x:=8 to 75 do

---

begin s:=133*x+125;

---

if (s<10000) and (s>999) then writeln (s);

---

end;

---

end.

---

как делать 5,не знаю, извини

---

огромное спасибо что с 3 и 6 помогла)