Написать программу нахождения периметра параллелограмма по известным сторонам b и h ( b и h — целые числа, вводимые с клавиатуры).

1_3.png

program perimetr;
var
b,h,p:integer;
begin
write('b=');
readln(b);
write('h=');
readln(h);
p:=2*(b+h);
writeln('p=',p);
readln;
end.
program perimetr;
var
b,h,p:integer;
begin
write('b=');
readln(b);
write('h=');
readln(h);
writeln('p=',p);
readln;
end.
program perimetr;
var
begin
write('b=');
readln(b);
write('h=');
readln(h);
p:=2*(b+h);
writeln('p=',p);
readln;
end.

Делал на 1С, но при желании можно свои поставить операторы (своего языка, главное алгоритм

Процедура КнопкаВыполнитьНажатие(Кнопка)
 НужноСочинитьПесенок = 2019;
ПесенокВДень = 5;
 СочинилПесенок = 0;
КоличествоДней = 0;
 Пока СочинилПесенок < НужноСочинитьПесенок Цикл
   Если (СочинилПесенок + ПесенокВДень) > НужноСочинитьПесенок Тогда  ПесенокВДень = НужноСочинитьПесенок - СочинилПесенок;
КонецЕсли;
      СочинилПесенок = СочинилПесенок + ПесенокВДень;
   КоличествоДней = КоличествоДней + 1;
   Сообщить(Строка(КоличествоДней)+" день(ей) сочинил "+Строка(ПесенокВДень)+ " песенок. Всего сочинил "+Строка(СочинилПесенок));
 
 ПесенокВДень = ПесенокВДень + 1;
КонецЦикла;

 Сообщить("Понадобилось "+Строка(КоличествоДней)+ " дней");

КонецПроцедуры

Сообщения:
1 день(ей) сочинил 5 песенок. Всего сочинил 5
2 день(ей) сочинил 6 песенок. Всего сочинил 11
3 день(ей) сочинил 7 песенок. Всего сочинил 18

57 день(ей) сочинил 61 песенок. Всего сочинил 1 881
58 день(ей) сочинил 62 песенок. Всего сочинил 1 943
59 день(ей) сочинил 63 песенок. Всего сочинил 2 006
60 день(ей) сочинил 13 песенок. Всего сочинил 2 019
Понадобилось 60 дней

Кодирование текстовой информации: N - кол-во символов в алфавите, i - кол-во бит для кодирования 1 символа, k - кол-во символов в тексте. I - информационный объем текста. Если мы знаем N, то можем узнать сколько "весит" i (N=2^i, одна буква в битах). Если мы знаем i и k, то узнаем какой объем этого сообщения (I=i*k). То же самое в кодированием графической информации.
Кодирование графической информации: N - кол-во цветов в палитре, i - "вес" одного пикселя в битах, k (X * Y) - это разрешение изображения, т.е кол-во точек в изображении, а I - объем изображения, I = k * i.