Program fgg;
const
b = 7;
var
a, s, r: Integer;
begin
for a := - 10 to 10 do
Writeln('s=', a + b, ' ', 'r=', a - b);
a := a + 5;
end.
1. Сам))
2. Lot is обозначает "серая мышь"
3.(1+2+3+4+5)/(10-7)=5
4. Продавец - цена
Машинист - время
Ученик - пример
5. Кабинет музыки - ноты, муз. инструменты
Кабинет Химии - колбы, кристаллы
Спорт зал - мячи, ракетки
Для решения этого задания достаточно перевести указанное число в двоичную СС и посчитать нули.
158(10) = 10011110, отсюда следует что нулей три.
Ответ: 3.
var m,k:integer;
n:real;
begin
writeln('Введите n и m через пробел:');
read(n,m);
k:=0;
writeln('Шаг ',k,', n=',n,', m=',m);
while m >= 6 do begin
m:=m-2;
n:=n*2;
k:=k+1;
writeln('Шаг ',k,', n=',n,', m=',m);
end;
writeln('n=',n,', m=',m);
end.
Результат:
Введите n и m через пробел:
1 10
Шаг 0, n=1, m=10
Шаг 1, n=2, m=8
Шаг 2, n=4, m=6
Шаг 3, n=8, m=4
n=8, m=4