ДАЮ Двадцять п'ять балов!! Назвіть правила етикету листування, які порушено в такому листі: Привіт! Мені потрібно підготувати повідомлення про історію українського козацтва. Ти хвалився козаками з того роду. Напиши мені їхню історію. Надсилаю тобі три фотографії - подивись, де я відпочивав. Бувай!
начало решения задач одинаковое, а дальше см. внизу
program xxx;
var b: array [1..6, 1..6] of integer;
i, j, s : integer;
begin
for i:= 1 to 6 do
for j:=1 to 6 do
b[i,j]:= random(131)-65;
writeln ('исходная матрица В:');
for i:=1 to 6 do
begin
for j:=1 to 6 do
write (b[i,j]:4);
writeln
end;
задание 1.
s:=0;
for i:= 1 to 6 do
if b[i,3]>0 then s:=s+b[i,3];
writeln ('сумма положительных элементов 3-го столбца', s)
end.
задание 2.
i:=2;
while i<=6 do begin
for j:= 1 to 6 do
if b[i,j]<0 then b[i,j]:=0;
i:=i+2
end;
writeln ('полученная матрица В:');
for i:=1 to 6 do
begin
for j:=1 to 6 do
write (b[i,j]:4);
writeln
end
end.
ЦЕЛЬ ПРОЕКТИРОВАНИЯ ПРОГРАММЫ:
Автоматизация расчетов материалов, необходимых для выпол-нения ремонта в доме или квартире.
НАЗНАЧЕНИЕ ПРОГРАММЫ:
Расчет количества рулонов обоев для указанной комнаты.
ОБЛАСТЬ ПРИМЕНЕНИЯ ПРОГРАММЫ:
Программа может быть использована при ремонте комнаты, ко-гда надо знать, сколько надо купить рулонов обоев.
ВВОД
Вводится высота от пола до потолка, длина большей стены, длина меньшей стены, ширина двери, высота двери, ширина оконного проема, высота оконного проема, длина руло-на(const1) и ширина рулона(const2).
ВЫВОД
Выводится количество рулонов n
Объяснение: