Var x,y:real;
begin
write('x = ');
readln(x);
y:=x/3;
writeln('y = ',y);
end.
Пример:
x = 15
y = 5
Program n1;
var i,sum: integer;
begin
sum:=0;
for i:=100 to 999 do if i mod 47=43 then sum:=sum+i;
write(sum);
end.
Можно уточнить, ввести или вывести? и среди всех - можно просто написать cout << "17, 27, 37, 47, 57, 67, 77, 87, 97";
или cout << "9"
1
использовать Робот
алг
нач
цел а,с
нц для с от 1 до 3
нц для а от 1 до 5
закрасить
вправо
кц
нц для а от 1 до 5
влево
кц
нц для а от 1 до 5
закрасить
вниз
кц
нц для а от 1 до 5
вверх
кц
вправо
вниз
кц
кон
<span>
2
использовать Робот
алг
нач
цел а,с
нц для с от 1 до 3
нц для а от 1 до 5
закрасить
вправо
кц
нц для а от 1 до 5
влево
кц
нц для а от 1 до 5
закрасить
вниз
кц
нц для а от 1 до 5
вверх
кц
вправо
вправо
вниз
кц
кон<span>
</span></span>
1)9литровое 2)5-литровое ( так удобнее писать)
набираем 1 ведро
переливаем из 1 до краев во 2 (в 1 остается 4 литра)
выливаем 2ведро
переливаем из 1 во 2
набираем 1
переливаем из 1 <span>до краев во 2 (в 1 остается 8 литров)
</span><span>выливаем 2ведро
</span>переливаем из 1 <span>до краев во 2 (в 1 остается 3 литра)
</span><span>выливаем 2ведро
</span><span>переливаем из 1 во 2
</span>набираем 1 ведро
переливаем из 1 до краев во 2 (в 1 остается 7 <span>литра)
</span>Готово!
в 1 ведре 7 литров