Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
пусть введенный интервал будет
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.
2.5 кбайт = 2560 -байт = 20480 бит
20480 : 2560 = 8
ответ: 8 минут.
вроде както так..
program fasf;
var
n,q: integer;
write('введите этаж: ');
readln(n);
q: =n*4;
writeln('квартиры: ',q,q-1,q-2,q-3);
сохранить информацию о наблюдаемом объекте
передать информацию о нём другим людям
испытать на модели работу объекта ,если испытание объекта-оригинала опасно или дорого
Популярные вопросы