Опубликовано 26.01.2018 по предмету Информатика от Гость

Задание1. используя цикл "while" вывести на экран числа 30,25,20
Задание2. найти сумму чисел "задание1"

Ответ оставил Гость

Var A,S:integer;
Begin
A:=30;
S:=0;
While A >= 20 do
   Begin
   Write(A, );
   S:=S+A;
   A:=A-5;
   End;
WriteLn;
WriteLn(S = ,S)
End.

Не нашел нужный ответ?

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.


Найти другие ответы