Опубликовано 26.01.2018 по предмету Информатика от Гость

Вводятся целые числа A и B. Выведите все двузначные числа от A до B, которые делятся на 15
Надо составить программу в паскале,помогите пж.

Ответ оставил Гость

var 
a, b: integer;

begin 
write(Введите a: );   
readln(a);   
write(Введите b: ); 
readln(b); 
var x := Range(a, b); 
var y:=(x.Where(x -> (x>=10) and (x<=99))); 
writeln(Двузначные числа от A до B: ); 
y.Println; 
writeln(Двузначные числа, которые делятся на 15: ); 
y.Where(x -> (x mod 15)=0).Println;
end.

Не нашел нужный ответ?

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.


Найти другие ответы