Регистрация
dashasokolova21
28.03.2020 02:26
Информатика
Есть ответ 👍

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

104
215
Посмотреть ответы 2

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

rano09
rano09
4,6(47 оценок)

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.

Gear228man
Gear228man
4,6(78 оценок)

Windows Video (.asf)

Windows Video (.avi)

MP4 Video (.mp4, .m4v, .mov)

Movie (.mpg or .mpeg)

Adobe Flash (.swf)

Windows Media Video (.wmv)

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