var k,a: integer;
begin
write('количество k=');read(k);
for var n:=k downto 1 do
begin
a:=2*n;write(a, ' ');
end;
end.
Человек вроде.
Потому что подсистемой является то, что относится к школе. Т.е. человек.
Максим же, ну :) Другие не подходят, тк либо начинаются на гласную, либо заканчиваются
Var
S, a, h: real;
begin
write('Введите длину основания --->');read(a);
write('Введите высоту --->');read(h);
S := (a * h) / 2;
writeln('Площадь треугольника равна', ' ', S);
writeln('Целая часть - ', Trunc(S));
writeln('Дробная часть - ', Frac(S));
end.
Объект картина признаки красота автор
треугольник. признаки коо-во углов , сторо и т.д