Пристрої введення це - клавіатура , мишка та вебкамера
1) var n,i:integer;
begin
for i:=1 to 500 do
if (i mod 3=0) and (i mod 10=4) then
writeln (i);
readln;
end.
2)
var a,b:integer;
begin
readln (a,b);
while (a<>0) and (b<>0) do
if a>b then a:=a mod b
else b:=b mod a;
writeln (a+b);
readln;
end.
Потому что она позволяет проводить вычисления с данными, представленными в виде двумерных массивов, имитирующих бумажные таблицы.
64*40*48*8=983040 бит /8/1024 = 102 КБ
Ответ: 3.
Var x,y: real;
begin
read(x);
if x>=0 then
begin
y:=5*sqr(x)*sqr(x)*x-sin(x);
writeln(y);
end;
end.