var i,a,b,m,sum,s:integer;
begin
read(a,b,m);
for i:=a to b do begin
if(i mod m =0)then sum:=sum+i;
if(i mod 2 =1)then s:=s+1;
end;
writeln(sum,' ',s);
end.
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString.Reverse.Println
end.
<u>Пример</u>
рука
акур
Var a,b,p:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
p:=a;
while p<b do
begin
write(p,' ');
p:=p*a;
end;
end.
Пример:
<span>a = 2
b = 20
2 4 8 16</span>
Конечно нет.
Например, схема телефона ничего не скажет о том, какая в нем записана информация. Карта местности ничего не скажет о том, какая там сейчас погода, схема проезда к кинотеатру ничего не скажет, о том, каково в данное время состояние дорог и т.п.