Задача на скриншоте. Решение на языке паскаль(7 - вопрос №711086019 от Aleksa5432 17.07.2022 09:42

Question

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

Aleksa5432 · 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.