var
i, k: integer;
begin
i:= 100;
k:= 0;

while i < 1000 do
begin
if (i * 2 mod 10 = 8) and (i * 3 mod 10 = 4) then write(i, ' ')
else k:= k + 1;
i:= i + 1;
end;
if k = 900 then writeln('Таких чисел не существует!');end.

0 0

4 года назад

135,207, двоичная система числения

Настя20192018

Если нужно числа 135 и 207 перевести в двоичную систему то держи:

135 - 10000111

207 - 11001111

0 0

4 года назад

помогите пожалуйста нужно написать программу в паскале которая поменяет 1 и последнюю букву в слове местами

wwwintik

var s:string;

t:char;

Begin

read(s);

t:=s[1];

s[1]:=s[length(s)];

s[length(s)]:=t;

writeln(s);

End.

0 0

4 года назад

За 3ч 12мин на студии был записан стерео файл с 32 битным разрешением.размер файла -5625Мб.найти частоту дискретизации записи в

мафтуна [20]

3ч * 3600 + 12 мин * 60 = 4320 с
5625 * 1024 = 760000 * 1024 = 5898240000 * 8 = 47185920000
47185920000 / 32 = 1474560000 / 4320 = 341333,333 гц = 341 кГц

0 0

4 года назад