Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
пусть введенный интервал будет
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.
у семи нянек дитя без глаза.
28 символов * 2 = 56 байт
56 * 8 = 448 бит.
ответ. 448 бит.
1
program xxx;
var n : integer;
write('введите число n=');
readln(n);
if n mod 2 = 0 then write('четное') else write ('нечетное');
realdn
2
e : = n mod 10
if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');
заражоный диск или инет захват не заражоных файлов удаляет или заменяет их установить антивирусник . всегда проверять вайлы антивирусом
Популярные вопросы