1)
Program hhh54;
var x:longint;
begin
read (x);
if ((x div 100) + ((x div 10) mod 10) + (x mod 10)) mod 2 <> 0 then write ('ЯВЛЯЕТСЯ')
else write ('НЕ ЯВЛЯЕТСЯ');
end.
2)
а)
Progran hhh54;
var i,k,x:longint;
begin
k:=0;
read (x);
while x <> 0 do
begin
if (x mod 10 = 6) and (x mod 4 = 0); then k:=k+1;
read (x);
end;
write (k);
<span>end.
</span>
б)
Progran hhh54;
var i,s,x:longint;
begin
s:=0;
read (x);
while x <> 0 do
begin
if (x mod 10 = 6) and (x mod 4 = 0); then s:=s+x;
read (x);
end;
write (s);
end.
25^7+5^18-25=
=5^14+5^18-5^2=
=5^18+5^14-5^2
5^18 = 1 0000...0 - (одна 1 и 18-ть нулей) в 5сс
5^14 =1000...0 - (одна 1 и 14-ть нулей) в 5сс
5^2 =100 в 5сс ( одна 1 и два 0)
5^14-5^2 (10cc) = 100 000 000 000 000 - 100 (5cc) =
=44 444 444 444 400 (5cc) - 12-ть четвёрок
ответ 12
2³³ бит = 8589934592 бит = 1073741824 байт = 1048576 кбайт = 1024 мбайт
1024 / 1.4 ≈ 731.4
Значит для хранения информации о яйцеклетке требуется 732 дискеты.
Program kek;
Var a, c:integer;
Begin
c:=0;
a:=1;
While a<>0 do begin
Writeln('Вводите целые числа. Когда закончите - введите "0"');
Readln(a);
If (a>0) and (a mod 10 = 1) then do begin
c:=c+a;
end;
End;
Writeln(c);
End.
Вроде так. Нет возможности проверить.
1.Пиксель<span> – это элемент изображения. В любую фотографию, будь-то цифровой файл или отпечаток, входит некоторое количество пикселей, которые формируют объекты, изображенные на снимке
</span>Растр<span> (оптика) — решётка для структурного преобразования направленного пучка лучей света. В прозрачных растрах чередуются прозрачные и непрозрачные элементы, отражательные </span>растры<span> состоят из зеркально отражающих и поглощающих (или рассеивающих) элементов.
2.</span>От видеокарты приходят сигналы цвета R, G, B и импульсы синхронизации. Всё это обрабатывается и подаётся на кинескоп. <span>От видеокарты приходят сигналы цвета R, G, B и импульсы синхронизации. Всё это обрабатывается и подаётся на кинескоп. </span>