Var i, n: integer;
begin
readln(n);
for i:=10 to 99 do
if (i mod 10 + i div 10 = n) then
write(i, ' ')
end.
158 в десятичной системе счисления = 10011110 в двоичной системе счисления.
Количество значащих нулей = 3, так как они стоят после единицы!
Var n,d,a1,a0,i:integer;
begin
writeln('d=');
read(d);
writeln('n=');
read(n);
writeln('a1=');
read(a1);
a0:=a1;
for i:=2 to n do
a0:=a0+d;
writeln('Сумма равна');
writeln(a0);
<span>end.
.</span>
1) Автомобиль приехал по трассе S километров за t часов. Написать программу, которая определит среднюю скорость его движения. S, t - веществ. числа, вводятся с клавиатуры. Протокол работы программы должен выглядеть примерно так:
ВВедите расстояние(км.)-120
Введите время движения(час.)-1.2
Автомобиль двигался со скоростью 100 км/час[/B]
2)Напишите программу для обмена значениями двух целых переменных. Дополнительные переменные использовать нельзя. Если вы используете переменные X, Y, то других переменных в программе быть не должно.. протокол программы должен быть таким:
ВВедите два целых числа: 3 -5
на входе: Х=3, У=-5
на выходе Х=-5 ,У=3
3) Напишите программу циклического сдвига трех целых переменных по схеме X-> Y, Y-> Z, Z-> X..
В программе может быть использована одна дополнительная переменная. Протокол работы :
Введите три целых числа: 3 -5 7
На входе х=3, у=-5, z=7
На выходе х=7, у=3, z=-5