Program z1;
var i,m:integer;
begin
m:=0;
for i:=39 to 5000 do
if (i mod 39=0)and(m<i) then
m:=i;
writeln(m);
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var s:=a.Where(t->t.IsOdd and (t>0));
if s.Count=0 then Writeln('Нет нечетных положительнных')
else s.Min.Println
end.
<u>Пример</u>
n= 13
31 -5 -22 19 -30 21 -11 -28 -3 20 -19 36 -29
19
Первая задача:
24×32×64=49152
Умножаем на кол-во битов(8)
49152×8=393216бит
Переводим в КБ и получаем
393216бит=48КБ
ОТВЕТ:48 КБ
ВТОРАЯ ЗАДАЧА
30+30=60
60×10=600бит
ОТВЕТ:600бит
Третья задача
256/16=16
ОТВЕТ:в 16 раз
Личную
например:группа крови,адрес(где проживаешь)и т.д.
Var i:integer;
begin
for i:=100 to 999 do
if sqr(i div 100) = i div 10 mod 10 + i mod 10 then writeln(i);
end.
Результат:
101
110
204
213
222
231
240
309
318
327
336
345
354
363
372
381
390
479
488
497