Регистрация
Valdosta16
06.10.2021 17:55
Информатика
Есть ответ 👍

Информатика 9 класс. работа в кумире

250
439
Посмотреть ответы 1

Ответы на вопрос:

katehell11
katehell11
4,5(49 оценок)

uses crt;

var

  a,b,c,n,k,i:integer;

begin

    writeln('Введите кол-во товаров');

    readln(n);

    for i:=1 to n do

    begin

         writeln('Введите стоимость ',i,' товара');

         readln(a);

         if a>1000 then k:=k+a;

    end;

    writeln('Сумма товаров, стоимостью > 1000 рублей = ',k,' рублей');

end.

Популярно: Информатика