Вычислите периметр огорода имеющего форму четырёхугольника со сторонами A,B,C,D.

Знания

Информатика

1 ответ:

Vania [97]3 года назад

0 0

Pascal.
var A,B,C,D:integer;
begin
writeln('введите стороны A, B, C, D');
readln(A,B,C,D);
writeln('P=',a+b+c+d);
end.

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

Срочно!!!!!!!!!!!!!!!ABC pascal!!!!!!!!!!!!!Дан одномерный массив В(N). Добавить в конец массива элемент, равный сумме отрицател

Allisia [21]

var

n,i: integer;

b: array[1..101] of integer;

begin

readln(n);

for i:=1 to n do

begin

read(b[i]);

if ((i mod 2 = 0) and (b[i]<0)) then

inc(b[101], b[i]);

end;

write(b[101]);

end.

0 0

3 года назад

В процессе преобразования растрового графического файла количество цветов уменьшилось с 512 до 8. Во сколько раз уменьшился инфо

PumpkinPie [7]

Можно сказать точно, если изображение без сжатия (типа bmp)
На один пиксел приходилось 9 бит, теперь требуется 3, следовательно в 3 раза

0 0

4 года назад

даны цэлые числа x,y,c .Напишите программу , которая находит значение выражения x+y/2c и выводит на экран монитора результат

askorbino4ka7777

int x=1,y=2,c=3;
int result=x+y/2*c;
System.out.print(result);

0 0

1 год назад

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

Напишите программу,которая запрашивает у пользователя ввод чисел,пока не будет нажата цифра "ноль".На экран выводит сумму всех в

Марина 174

Var a,s:integer;
begin
writeln ('Введите целое число');
a:=1;
while a<>0 do
begin
readln (a);
s:=a+s;
end;
writeln ('Сумма всех введенных чисел = ', s);
<span>end.</span>

0 0

4 года назад

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

Печатать элементы последовательности 100 50 25 12,5... пока они больше 1

Светланка88 [14]

100 50 25 12,5 6,25 3,125 1,5625

0 0

4 года назад