Регистрация
досметова
08.02.2022 12:35
Информатика
Есть ответ 👍

Тема циклы. уменшить данное число на 4, пока оно положительное. исполнить x=13. сделать блок схему и программу на паскале.

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

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

148625
148625
4,6(2 оценок)
Var   a: integer; begin   readln(a);   while (a > 3) do     a : = a - 4;   writeln(a); end. если нужно отнимать, даже если число перестанет быть отрицательным после очередной итерации: var   a: integer; begin   readln(a);   while (a > 0)  do     a : = a - 4;   writeln(a); end.
haritonukaleksa
haritonukaleksa
4,4(96 оценок)
Var n: integer; s: real; begin s: =0; write('n = '); readln(n); for n: = 1 to n do       s: =s+n; write('s = ',s) end.

Популярно: Информатика