var a, b, s, p: real;
begin
write(‘Чему равны стороны прямоугольника: ‘);
readln(a,b);
p:=2*(a+b);
s:=a*b;
writeln(‘Периметр прямоугольника: ‘, p);
write(‘Площадь прямоугольника: ‘, s)
end.
Результат работы:
Чему равны стороны прямоугольника: 2 5
Периметр прямоугольника: 14
Площадь прямоугольника: 10
Решение с помощью таблицы приведено во вложении.
Числами обозначены клетки, состояние которых определено в высказывании под соответствующим числу номером. Красный фон - отрицательный результат, зеленый - положительный.
Полезно нарисовать пустую таблицу и заполнять её, ставя знак "минус" (или записывая "нет") вместо красного фона и знак "плюс" ("да") вместо зеленого.
Графический адаптер, графическая плата
Program chik2;
var a,i,h,l:integer;
begin
l:=0;
h:=0;
for i:=1 to 10 do
begin
read(a);
if(a>0)then l:=l+1;
if(a<0)then h:=h+1;
end;
write(l,' ',h);
end.
l-кол-во полож
h-кол-во отрицательных