Const n=10;
var a:array[1..n] of integer;
prz:integer;
i:byte;
begin
prz:=1;
for i:=1 to n do
begin
a[i]:=-56+random(103);
if (i mod 2=0) and (a[i]>5) then
prz:=prz*a[i];
write(a[i],' ');
end;
writeln('prz= ',prz);
end.
Ответ:
Div целое число от деления
То есть 33 Div 5 = 6
Не знаю, как именно вам нужно вводить числа, передалайте под ваши нужды:) решение получается такое:
На Pascal:
program zadacha;
var
a,b:double;
begin
readln(a); //Ввод первого угла
readln(b); //Ввод второго угла
if 180 - (a + b) = 90 then writeln('Yes') else writeln('No');
end.
А) 10 ячеек (5строк*2столбца)
в) 130 ячеек (ячейки в одном столбце, значит 153-23=130)
В) 9 ячеек (3 столюца* 3 строки)