Program one;var a,b,c,d,e,g:integer;beginwriteln('Введите цену помидор за один килограмм (в рублях)');readln(a);writeln('Введите вес помидор');readln(b);writeln('Стоимость покупки: ',a*b,' руб');writeln('Введите цену огурцов за один килограмм (в рублях)');readln(c);writeln('Введите вес огурцов');readln(d);writeln('Стоимость покупки: ',c*d,' руб');writeln('Введите цену яблок за один килограмм (в рублях)');readln(e);writeln('Введите вес яблок');readln(g);writeln('Стоимость покупки: ',e*g,' руб');end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,50,150); a.Println;
Writeln('Трехзначных: ',a.Where(x->x>99).Count)
end.
Пример
132 53 120 100 143 148 125 78 150 141 50 138 72 109 59
Трехзначных: 10