Напишите программу по блок-схеме


Напишите программу по блок-схеме

qqwqe qqwqe    2   15.02.2021 18:57    0

Ответы
gmunaitbas gmunaitbas  15.02.2021 19:00

Pascal:

var a,b,i:integer;

begin

   write('Введите а: '); readln(a);

   if a < 1 then write('Число не может быть меньше единицы')

   else begin

       for i:=1 to a do begin

           b:=b+i;

       end;

       write('b = ', b);

   end;

end.

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