1.первое число - целочисленный тип второе - вещественный разные диапазоны 2.1) s := (x1+x2)/2 2) dec(k) или k:=k-1 3) inc(i) или i:=i+1 4) sum := t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша; kt, kr, kk - количество тетрадей, ручек и карандашей)
2. а) значения функции y=х(в квадрате) var y,x: real
б) площади прямоугольника var a,b,s: real
в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек var kv:integer; st,so,sum: real
г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей var kvt,kvr,kvk:integer; st,sr,sk,sum: rea
1.первое число - целочисленный тип второе - вещественный разные диапазоны 2.1) s := (x1+x2)/2 2) dec(k) или k:=k-1 3) inc(i) или i:=i+1 4) sum := t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша; kt, kr, kk - количество тетрадей, ручек и карандашей)
2. а) значения функции y=х(в квадрате) var y,x: real
б) площади прямоугольника var a,b,s: real
в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек var kv:integer; st,so,sum: real
г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей var kvt,kvr,kvk:integer; st,sr,sk,sum: rea
begin
var a:=ReadAllText('input.txt').ToReals.Take(3).ToArray;
a.Where(t->t<>a.Max).Println
end.
Во втором вложении - тестовый файл input.txt