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.
Вот вроде бы правильно сделано )
SELECT * FROM "Зоопарк" WHERE "количестве пищи в день" BETWEEN 5 and 10
Роль источника информации ты можешь играть,например,когда рассказываешь для ученика первого класса что-то новое, для него это является новой информацией,а ты его источник.А роль приёмника,когда узнаешь новую информацию на уроке,получив её от учителя.