Задана сторона а1 первого квадрата и сторона другого квадрата а2. Площадь какого квадрата больше?

Знания

Информатика

1 ответ:

маруся кобра4 года назад

0 0

Var
a1,a2:integer;
begin
writeln('Введите а1');
read(a1);
writeln('Введите а2');
read(a2);
a1:=sqr(a1);
a2:=sqr(a2);
if a1>a2 then
writeln('Площадь а1 больше')
else
writeln('Площадь а2 больше');
end.

Читайте также

С помощью приведенного в конце задания фрагмента кодировочной таблицы ASCII раскодируйте заданный текст98 121 99 107 32 105 115

Елена-А [1.7K]

Закодированный текст: byck is my dog.
Обратите внимание, что зашифрованные символы, имеют именно такой регистр. Кроме этого, номер 46 в таблице ASCII - это точка.

0 0

4 года назад

Привидите пример таблицы типа " объекты-объекты-один "

наташа-б

пример таблицы типа " объекты-объекты-один "

0 0

4 года назад

Написать программу, которая будет вычислять периметр треугольника, если его стороны дробные числа.

саянск

<em>// PascalABC.NET 3.2</em>

begin
var a,b,c:real;
Write('Введите длины сторон треугольника: '); Read(a,b,c);
Writeln('P=',a+b+c)
end.

0 0

4 года назад

За сколько секунд модем,передающий информацию со скоростью 28800 бит/с,может передать 2 страницы текста объемом 3600 байт?

viktorgoryachev1995

3600 байт *8=28800 бит
28800/28800=1 сек

0 0

4 года назад

Сформировать массив b b1:=sin1 ,b2:=cos2,b3:=sin3,b4:=cos4 n=10

Алексей джан

Const
n = 10;
var
b: array [1..n] of real;
i: byte;
begin
for i := 1 to n do
begin
b[i] := cos(i);
writeln('b[',i,'] = ', b[i]);
end;
end.

0 0

4 года назад