Категория
Информатика, опубликовано 06.03.2019 03:20

Вычислить периметр и площадь прямоугольника, если заданы его стороны. нужно написать программу для этой (pascal)

Ответы

Ответ
Ответ оставил: Гость
Var   a,b,p,s: integer; begin   writeln('введите a');   readln(a);   writeln('введите b');   readln(b);   writeln('периметр: ',2*(a+b));   writeln('площадь: ',a*b);       end.
Ответ
Ответ оставил: Гость
Program Ok;
var A:array[1..10] of real;
sum:real;i,n:integer;
begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
read(A[i]);
end;
for i:=10 downto 1 do
begin
if(A[i]>0) then
n:=i;
end;
for i:=1 to 9 do
begin
if (A[n] = A[i+1]) then
sum:=sum+1;
end;
writeln(sum);
end.
Ответ
Ответ оставил: Гость
Качество фото плохое нечего не понятно
Ответ
Ответ оставил: Гость
Которые предназначены не для одной платформа (к примеру, не только на ПК)


Другие вопросы по информатике

Вопрос
Информатика, опубликовано 09.01.2019 16:01
✅ Ответов: 2 на вопрос по информатике: Вычислить периметр и площадь прямоугольника, если заданы его стороны. нужно написать программу для этой (pascal)... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube