program a1;
Var
x,a,h:integer;
Begin
Readln(x);
writeln('y = ',x-10);
Readln(a,h);
write('S = ', 1/2*a*h);
end.
1.
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: real
var
a: string;
x: integer;
begin
write('Введите слово: '); readln(a);
length(a);
if (a[2]='а') or (a[2]='б') or (a[2]='в') or (a[2]='г') or (a[2]='д') then x:=9;
if (a[2]='е') or (a[2]='ж') or (a[2]='з') or (a[2]='и') or (a[2]='й') or (a[2]='к') then x:=8;
if (a[2]='л') or (a[2]='м') or (a[2]='н') or (a[2]='о') or (a[2]='п') or (a[2]='р') then x:=7;
if (a[2]='с') or (a[2]='т') or (a[2]='у') or (a[2]='ф') or (a[2]='х') or (a[2]='ц') then x:=6;
if (a[2]='ч') or (a[2]='ш') or (a[2]='щ') or (a[2]='ы') or (a[2]='ъ') or (a[2]='ь') or (a[2]='э') or (a[2]='ю') or (a[2]='я') then x:=5;
writeln('Перевод: ', x);
end.
var y,x:integer;
begin
readln(x);
y:=x-10;
writeln(y);
end.
Объяснение:
Так что ли? Бред какой то...