<u>// PascalABC.NET 3.2, сборка 1447 от 22.05.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
procedure Print60(c:char);
begin
Write(60*(c+NewLine))
end;
// Тестовый вызов
begin
Print60(ReadlnChar)
end.
1)Переводим все в дюймах дюйм=2.54 22,86/2,54=9
2)теперь все перемножаем 9*9*600*1200*4/8=29160000
Ответ:29160000 Байт
Program output1;
var M:array [1..100] of integer; {ввод целочисленной переменной M, связанная с массивом}
n,i:integer; {ввод целочисленных переменных n,i}
begin
write('Введите количество элементов массива: '); {ввод кол-ва элементов массива}
readln(n);
for i:=1 to n do {начало цикла for с шагом = 1}
readln(M[i]); {считывание переменной M[i]}
writeln('Введённый массив: '); {вывод массива M[i] на печать}
for i:=1 to n do
writeln(M[i]);
end.
Function oddcount(ar:array[1..n;1..m] of integer):integer;
var i,j:integer;
begin
result:=0;
for i:=1 to n do
for j:=1 to m do
begin
if odd(ar[i,j]) then
result:=result+1;
end;
writeln(result);
end;
Вот так как-то.
1-В
2 -А
Сейчас ещё подумаю