Все категории

4 года назад

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

Знания

Информатика

1 ответ:

35vologda4 года назад

0 0

Program z1;
var a,b,p:integer;
begin
writeln('введите стороны прямоугольника');
readln(a,b);
p:=(a+b)*2;
writeln('Периметр равен ',p);
end.

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

На помощь!!! _____________ Составить программу, печатающую значение true, если указанное высказывание является истинным, и false

Алексей2294

Program n_1;

var x:integer;

begin

readln(x);

x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);

if (x mod 2 = 0) then writeln('true')

else writeln ('false');

end.

(в программе 2 таких чисел не существует)

Program n_2;

var x, y:integer;

begin

readln(x);

y:=x*x;

x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);

x:=x*x*x;

if (x=y) then writeln('true')

else writeln ('false');

end.

Program n_3;

var a, b, c:integer;

begin

read(a, b, c);

if (a=b) or (b=c) or (a=c) then writeln('true')

else writeln ('false');

end.

0 0

4 года назад

Прочитать ещё 2 ответа

Сколько будет 15 умножить на 2 в 13 степени?

кеша3585

30 в 13 степени=300000000000000

0 0

4 года назад

Придумайте 3 алгоритма

UrfinJyise

1)взять чайник

2)открыть крышку чайника

3)открыть кран

0 0

4 года назад

Самый маленький элемент изображения на экране монитора

maxim3000 [7]

Пиксель
(P.S)
Пишу сюда ещё т.к не менее 20 слов

0 0

4 года назад

Прочитать ещё 2 ответа

Как Называется служба распространение файлы

zateyNic c fugasom [12]

8. Совокупность мировых систем телекоммуникаций и циркулирующей в них информации
А) киберпространство Б) Web - сервер
B) Web – сайт Г) Web – браузер

0 0

4 года назад