Регистрация
kristina1861
06.08.2022 01:50
Информатика
Есть ответ 👍

Var s, n: integer; begin s : = 42; n : = 1; while s > 0 do begin s : = s – 5; n : = n + 3 end; writeln(n) end решить по !

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

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

Sanchoys123
Sanchoys123
4,7(21 оценок)
Шаг №1                 s = 42 - 5 = 37               n = 1 + 3 = 4 шаг №2               s = 37 - 5 = 32                 n = 4 + 3 = 7                  шаг №3               s = 32 - 5 = 27                 n = 7 + 3 = 10 шаг №4               s = 27 - 5 = 22                 n = 10 + 3 = 13 шаг №5               s = 22 - 5 = 17               n = 13 + 3 = 16 шаг №6               s = 17 - 5 = 12                n = 16 + 3 = 19 шаг №7               s = 12 - 5 = 7                 n = 19 + 3 = 21 шаг №8               s = 7 - 5 = 2                 n = 21 + 3 = 24 а вот короткое решение:       42 / 5 = 8 + 2/5       n = 8*3   = 24
deemetraa
deemetraa
4,4(74 оценок)

var a, b, c: integer;

function naib(af, bf, cf: integer): integer;

var max: integer;

begin  

if af > bf then max := af else max := bf;

if cf > max then max := cf;

naib := max;

end;

begin

writeln('Введите a');

readln(a);

writeln('Введите b');

readln(b);

writeln('Введите c');

readln(c);

writeln('Наибольшим из введённых трёх чисел является ', naib(a, b, c));

end.

Объяснение:

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