Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Строка var x,y: real; говорит о том, что есть 2 переменные x и y вещественного типа.
program xxx;
var i, k, d, e, s : integer;
begin
k: =0;
for i: = 10 to 99 do
d: = i div 10;
e: = i mod 10;
s: =d + e;
if i mod s = 0 then k: =k+1
end;
write ('кол-во чисел которые делятся на сумму своих цифр=', k);
readln
end.
я буду писать часть предложения, а внизу табличку, чтобы понятнее было))
набрать 9 литров в первую ёмкость.
1. 9 л 2. 0л (пока что)
перелить 5 литров во вторую ёмкость.
1.4 л 2. 5л
из второй ёмкости вылить всю воду
1.4л 2. 0л
и из первой ёмкости перелить во вторую ёмкость оставшиеся 4 литра.
1.0 л 2. 4л
набрать полную первую ёмкость
1. 9л 2. 4л
и из неё перелить во вторую 1 литр.
1. 8л 2. 5л
воду из второй емкости вылить
1.8 л 2. 0л
и из 8 литров воды в первой ёмкости перелить во вторую ёмкость 5 литров
1. 3л 2. 5л
вот и
Популярные вопросы