Задача на скриншоте. Решение на языке паскаль(7 - вопрос №711086194 от WaRRiOPRO 08.06.2023 14:34

Question

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

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