Вpascalabc составьте программу: в интервале от 0 до 100 вывести на экран числа, которые делятся на введенное с клавиатуры число. 4)23 5)23 46 69 92 4)3 5)3 6 9 12 25 99
begin writeln('Введите число'); read(chislo); writeln('На ',chislo,' делятся:'); for i:=0 to 100 do begin if i mod chislo = 0 then writeln(i); end; end.
Однажды Ослик не знал чем заняться. Все его друзья уехали кто куда: кто к бабушке в деревню, кто на море теплое, а кто вообще в лес, ягоды собирать. И стало ослику скучно. Но вот он увидел книгу с ноутбуком, и думает. Думает, что бы выбрать. Если выберет книгу, то быстро ее прочитает и это ему не так тем более она скучная. Вот ноутбук другое дело - там и поиграть можно, и с друзьями пообщаться, и спросить что-нибудь в интернете, да узнать что-нибудь новое. Вот ослик и выбрал ноутбук. И стал играть в нем в игры. Так несколько лет. Ослик все играл, да играл, а его друзья уже давно себе нашли работу, завели семью и все у них хорошо. А ослик так и потратил половину своей жизни, а в дальнейшем и всю жизнь, на игру. Так что не играйте в игры, а учитесь, развивайтесь и читайте книги! Не будьте осликами.
chislo:integer;
i:integer;
begin
writeln('Введите число');
read(chislo);
writeln('На ',chislo,' делятся:');
for i:=0 to 100 do
begin
if i mod chislo = 0 then
writeln(i);
end;
end.