Задача на скриншоте. Решение на языке паскаль(7 - вопрос №711086362 от ОСА717 12.05.2021 01:27

Question

Информатика: Задача на скриншоте. Решение на языке паскаль(7 класс)

ОСА717 · Answer

Program zadacha;

var

kol:integer;

cena:real;

St:real;

begin

writeln ('Введи цену '); readln(cena);

for kol:=2 to 20 do begin

St:= cena*kol;;

Writeln (kol,' кол-ва товаров = ',St);

end;

end.