Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
пусть введенный интервал будет
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 xxx;
var a, b: real;
writeln('введите количество миль');
readln(a);
b: = a*1.6;
writeln('кол-во киллометров - ',b)
у семи нянек дитя без глаза.
28 символов * 2 = 56 байт
56 * 8 = 448 бит.
ответ. 448 бит.
грубо и сердито:
var c: longint;
read(c);
c: =c mod 10;
c: =sqr(c);
writeln(c);
Популярные вопросы