Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, k, d, e, s : integer;
begin
k: =0;
for i: = 10 to 99 do
d: = i div 10;
e: = i mod 10;
s: =d + e;
if i mod s = 0 then k: =k+1
end;
write ('кол-во чисел которые делятся на сумму своих цифр=', k);
readln
end.
var
s,s1: real;
k: integer;
s: =10;
k: =1;
while s< 20 do
s: =s*1.1;
k: =k+1;
writeln('в ', k,' день он пробежит 20 км');
s1: =10;
while s< 200 do
s: =s+s1*1.1;
s1: =s1*1.1;
writeln('в ', k,' день суммарный пробег превысит 200 км');
векторная графика масштабируется без потери качества изображения, но в растровой графике возможно использование более богатой цвтовой палитры.
Популярные вопросы