Ответ:
1) 754-4=750
2) делители числа 750, большие 4-х:
d={5, 6, 10, 15, 25, 30, 50, ...}
3) log(d) 750 > 1 выполняется для
d={5, 6, 10, 15, 25} ответ 5; 6; 10; 15; 25
Объяснение:
от 20:00 до 08:30 пройдет 12ч 30 мин
кажд час по минуте
12ч=12минут
08:30-12минут=08:18 над выйти из дома
Program p_2;
var
a : array[1..10,1..10] of integer; // двумерный массив.
i, j, p, o : integer;
begin
// Тут считаем,что массив уже получен
for i := 1 to 10 do
begin
p := 0;
o := 0;
for j := 1 to 10 do
if (a[i,j] > 0)
then p := p + 1
else o := o + 1;
if(o = p) then
for j := 1 to 10 do
write(a[i,j], ' ');
end;
end.
{Файл prog1_13_3.pasЗадача: Даны значения трёх целочисленных переменных a, b, c. Переместить их значения так, чтобы переменная а получила бы исходное значение b, b получила бы значения c, а переменная c - значение a.Автор: Башмаков М. Д., ИТ-11Дата: 15,09,2015} var a, b, c, k: integer;
begin k:=0; {Ввод} writeln('введите переменные a, b, c'); readln (a, b, c); {Перемещенние} k:=a; a:=b; b:=c; c:=k; {Вывод} writeln('а=',a,' b=',b, ' c=',c);end.
var
x, y, z: <em>real</em>;
a, b, c: <em>real</em>;
begin
readln(x, y, z);
if (x + y < 1) then
begin
a := (y + z) / 2;
b := (x + z) / 2;
c := (x + y) / 2;
x := a;
y := b;
z := c;
end
else
begin
x := sqr(x);
y := sqr(y);
z := sqr(z);
end;
writeln(x, ' ', y, ' ', z);
end.