Круг-яблоня, квадрат-сосна, дуб, прямоугольник- ландыш, морковь
var a:integer;
Begin
read(a);
if a mod 3 = 0 then writeln('Делится')
else writeln('Не делится');
readln;
End.
Объяснение:
во вложениях......
• – это ^. у меня он не ставится, у себя ставьте!!
+ – это v.
На паскале ABC
1) var
a,b,c,ot1,ot2:real;
begin
readln(a,b,c);
ot1:=a+b+c;
ot2:=a*b*c;
writeln(ot1,ot2);
end.