Найти паскаль, больше не чего не надо​

яна200320032003 яна200320032003    1   23.04.2020 01:17    0

Ответы
ananas6947 ananas6947  13.10.2020 17:37

pascal

Объяснение:

var

s, k: integer;

begin

 s := 0;

 k := 0;

 while k < 6 do

 begin

   s := s + 2;

   k := k + 1;

 end;

WriteLn('s = ', s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика