pascal
Объяснение:
Задание 1
var
y, z, c, d: real;
s, p: real;
begin
Write('Введите y, z, c и d:');
ReadLn(y, z, c, d);
p := y * z * c * d;
s := y + z + c + d;
WriteLn('Сумма равна ', s);
WriteLn('Произведение равно ', p);
end.
Результат: 33 и 250
Задание 2
var
a: real;
s: real;
begin
Write('Введите сторону квадрата a:');
ReadLn(a);
s := sqr(a);
WriteLn('Площадь квадрата равна ', s);
end.
Результат: 64
Задание 3
var
a, b: real;
s: real;
begin
Write('Введите стороны прямоугольника a и b:');
ReadLn(a, b);
s := a * b;
WriteLn('Площадь прямоугольника равна ', s);
end.
Результат: 60
type
Str = record
fio: string;
h: byte;
end;
var
base: array of Str;
i,sum,n,err:integer;
begin
write('Число учеников: '); readln(n);
setlength(base,n);
sum:=0;
writeln('Введите фамилию и рост через "space": ');
for i:=0 to n-1 do
begin
write(i+1:4,'. ');
readln(base[i].fio);
val(copy(base[i].fio,
pos(' ',base[i].fio)+1,
length(base[i].fio)-pos(' ',base[i].fio)),
base[i].h,
err);
delete(base[i].fio,
pos(' ',base[i].fio),
length(base[i].fio));
sum:=sum+base[i].h;
end;
writeln('Средний рост: ',sum/n:4:1);
for i:=0 to n-1 do
if base[i].h<sum/n then
writeln(base[i]);
end.
