Program n1;
var a,b: integer;
begin
readln(a,b);
writeln(a*b);
end.
Ответ, ответ, ответ, ответ
7 бит
Круг-яблоня, квадрат-сосна, дуб, прямоугольник- ландыш, морковь
Эмм..., ну тут ничего сложного, уж поверьте
1,2
var a,b,c :real;
begin
readln(a,b);
a:=(2*a)+b;
b:=3*(a-b);
c:=a+b;
write(c);
end.
в протоколах походу нужно записать ваши значения, и добавить ответы что у вас получилось
3.
var a,b,s,p :real;
begin
readln(a,b);
p:=2*(a+b); //периметр
s:=a*b; //площадь
writeln(a,b);
end.
Будет выведено
5 5
5 5
15 20
15 20
в 91 постоянно делится на 2 ока не будет меньше 1
1-1
2-2
3-2
4-3
5-3
6-4
7-4