Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
5
Объяснение:
Нам надо найти такой наименьший x, который одновременно будет не меньше 5 и меньше 15. Пять не меньше 5 и меньше 15.
пусть введенный интервал будет
b и c,где b< c
var a,b,c,i: longint;
begin
read(b,c);
for i: =b to c do
if i mod a=0 then write(i);
end.
program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.
не? я не уверен
Популярные вопросы