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
Программа выводит сами числа и их квадраты
Program Square5;
Uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 5 do
writeln(i,' ',i*i );
readkey;
end.