Program untitled;
var t,t2:text;
i,a:integer;
m:array [1..50] of integer;
begin
randomize;
assign(t,'output.txt');
assign(t2,'output2.txt');
rewrite(t);
for i:=1 to 50 do begin
m[i]:=random(50);
writeln(t,m[i]);
end;
reset(t);
rewrite(t2);
for i:=1 to 50 do begin
readln(t,a);
if a mod 2=0 then
writeln(t2,a);
end;
close(t);
close(t2);
<span>end.</span>
Цвет - яблоко
Вкус - малина
Скорость - машина
Длина - линейка
Материал - хлопок
Окрас - кот
Высота - дом
Вес - животное
Порода -кот
1) (2+sqrt(abs(A-B)))/(B*C+A)
2) a=20; b=5; x=140; x=14;
ответ: х=14
3)
var
A, H, S: real;
begin
Write('Введите А и Н: ');
Readln(A, H);
S := A * H / 2;
Writeln('S=', s:0:4)
end.
Тестовое решение:
Введите А и Н: 5.4 2.75
S=7.4250