Написать программу (напечатать), которая вычисляет сумму чисел 100, 110, 120, 130, ..., 200. Вы можете использовать любой вид цикла
по вашему усмотрению

Question

Информатика: Написать программу (напечатать), которая вычисляет сумму чисел 100, 110, 120, 130, ..., 200. Вы можете использовать любой вид цикла по вашему усмотрению​

виктор1258963 · Accepted Answer

program raf105;

var

white,blue,red,x,y,z: integer;

w,b,r: boolean;

begin

writeln('Ввод:');

readln(white, blue, red, x, y, z);

repeat

w:= false;

b:= false;

r:= false;

if white >= x

then begin

white-= x;

blue+= 1;

end

else w:= true;

if blue >= y

then begin

blue-= y;

red+= 1;

end

else b:= true;

if red >= z

then begin

red-= z;

white+= 1;

end

else r:= true;

until w and b and r;

writeln('Вывод:');

writeln(white,' ', blue,' ', red);

end.

PascalABC 3.4.2

Написать программу (напечатать), которая вычисляет сумму чисел 100, 110, 120, 130, ..., 200. Вы можете использовать любой вид циклапо вашему усмотрению​

MOGZ ответил

Написать программу (напечатать), которая вычисляет сумму чисел 100, 110, 120, 130, ..., 200. Вы можете использовать любой вид цикла
по вашему усмотрению