Флешка- это устройство ввода и вывода .А память флешки - это устройство хранения информации.
program z3;
uses crt;
var x,y,z,k:byte;
s:integer;
begin
clrscr;
write('Введи x='); readln(x);
write('Введи y='); readln(y);
write('Введи z='); readln(z);
if (x>z) and (not(odd(x))) then begin
s:=s+x;
k:=k+1;
end;
if (y>z) and (not(odd(y))) then begin
s:=s+y;
k:=k+1;
end;
writeln('Сумма чётных элементов, больших z равна ',s);
writeln('Кол-во чётных элементов, больших z равно ',k);
readkey
end.
<span>var
a,x:integer;
Sum: integer;
begin
WriteLn('введите целое число');
ReadLn( a );
x:= a;
</span>Sum<span>:= 0;
while ( x<>0 ) do
begin
</span>Sum := Sum<span> + (x mod 10);
x := x div 10;
end;
WriteLn( 'Сумма цифр числа ',a,' = ', </span>Sum<span> );
</span>Пока Х больше нуля:
Находим остаток от деления n на 10 (т.е. последнюю цифру числа), добавить его к сумме и увеличить произведение;Избавляемся от последнего разряда числа n путем деления нацело на число 10.
<span>1) Сообщение в кодировке ASCII : </span>
01010011
01001111 01000110 01010100
Декодированное
сообщение:
SOFT
<span>
2) Сообщение в кодировке КОИ-8 : </span>
11110000
11000001 11010000 11001011 11000001
Декодированное
<span>сообщение:
</span>
Папка