FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Email: Нажмите что бы посмотреть
Повторение
оператор ввода
оператор вывода
оператор присваивания
Повторение
IF A mod 2 = 0 Then C:=A+B
Else C:=A*B;
Повторение
Повторение
j=3, k=3
j=3, k=1
j=1, k=2
Повторение
А = 7, В = 22
нач
кон
S:=0
J:=10 to 99 do
S
IF J MOD 2 = 0 THEN S:=S+J
четных
да
J<>100
кон
Program zadacha3;
Var j,s:integer;
Begin
S:=0; J:=10;
REPEAT
S:=S+J; J:=J+1
UNTIL J=100 ;
Writeln(‘Сумма всех
двузначных чисел:’, S);
End.