Регистрация
AnnLage
17.07.2021 12:55
Информатика
Есть ответ 👍

Паскаль кружок нарисуйте движущихся круг​

154
489
Посмотреть ответы 1

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

елена1245678
елена1245678
4,4(19 оценок)
Pascalabc.net: var   q,w, a,b,h, s: real; begin   writeln('q(w) = 31w+31');   write('a = '); readln(a);   write('b = '); readln(b);   write('h = '); readln(h);   s : = 0;   w : = a;   if (a < b) then   begin       if (h < 0) then exit;   end   else if (a > b) then       if (h > 0) then exit;     while (w < = b) do   begin       q : = 31*w+31;       if (q < 0 ) then           s : = s + q;       w : = w + h;   end;   writeln('s = ',s); end.

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