<span>program mas;
uses crt;
var a, b, c, k:integer;
begin
writeln('Введите три числа');
readln(a);
</span>readln(b);<span>
</span>readln(c);<span> </span><span>
for i:=1 to 3 do begin
if i>0 then k:=k+1;
end;
writeln('Положительных чисел',k);
readln;
end.
Вроде так.
Точно не знаю, давно на этом языке не кодил</span>
Ну посчитай, 480 пикселей на 248.
119040
т.к. основание исходной системы счисления является стеменью 2 то значит можно просто представить каждую цифру в двоичной системе и получить двоичное представление числа
A = 1010
F = 1111
т.к. каждая цифра числа в восьмиричной системе счисления кодируется 3 битами то можно получить представление числа в восьмиричной системе счисления просто последовательно перобразовав каждые 3 разряда в цифру в восьмиричной системе счисления
111 = 7
101 = 5
010 = 2
для преобразования в десятичную систему счисления нужно каждую цифру числа пребразованную в десятичную систему счисления умножить на основание системы счисления в спени номера разряда и все результаты просуммировать
отсчет разрдов идет справа налево от 0
A = 10
F = 15
Отключить ток
отсоединить пострадавшего
оказать первую медпомощь
(это ты должна уметь)
помог - оцени ;)
Var a,b,c: integer;
Begin
write('Ведите трёхзначное число: ');
readln (a);
b:=a div 100;
c:=a mod 100 div 10;
writeln('Число, полученное перестановкой цифр сотен и десятков: ',c,b)
End.
Var a,b,c,d: integer;
Begin
write('Ведите трёхзначное число: ');
readln (a);
b:=a div 100;
c:=a mod 100 div 10;
d:=a mod 10;
writeln('Число, полученное перестановкой цифр сотен и десятков: ',c,b,d)
End.
(PascalABCNET)