Program Ok;
var a,i,k,n:integer;
begin
k:=0;
write('Введите кол-во чисел: ');
readln( n);
for i:=1 to n do
begin
read(a);
if (a div 10 <> 0) and (a div 100 = 0) and (a mod 2 = 0) and (a mod 3 = 0) then
k:=k+1;
end;
write(k);
end.
1 мин 40 сек это 100 секунд
100*1939=193900 байт
350*2 байта=700 байт одна страница
193900/700=277
var n:integer;
function f(x:integer):real;
begin
if x=1 then f:=1 else f:=x+f(x-1);
end;
begin
write('Введите число N ');
readln(n);
write('сумма равна ',f(n));
end.
лови бро затупил
7 937 082 20 07 киви
Var
a: array[1..100] of integer;
i, n: integer;
begin
n := 50;
writeln('Данные массива:');
for i := 1 to n do
begin
a[i] := random(60);
write(a[i], ' ');
end;
writeln();
{изменение элементов}
writeln('Новые значения:');
for i := 1 to n do
begin
if a[i] mod 4 = 0 then
a[i] := 0;
write(a[i], ' ');
end;
end.