Var
a : array [1..42] of integer;
sum : integer;
i : byte;
begin
randomize;
for i := 1 to 42 do begin
a[i] := random(30) + random(20);
write(a[i], '|');
sum += a[i];
end;
writeln();
if sum >= 1000 then writeln('Число четырехзначное! Всего: ', sum)
else
writeln('Число НЕ четырехзначное! Всего: ', sum)
<span>end.
----</span>
массив заполняется случайным образом
Ответ: 1,2
Операция random(n) - генерирует случайное число от 0 до числа n
<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var a,b,h:real;
Write('Введите a,b,h: '); Read(a,b,h);
var n:=Trunc((b-a)/h);
for var i:=0 to n do begin
var x:=a+i*h;
var y:=cos(x)*sqrt(x);
Writeln(x:6:3,y:15:5)
end
end.
<u>Пример</u>Введите a,b,h: 0.2 3.2 0.3
0.200 0.43830
0.500 0.62054
0.800 0.62315
1.100 0.47574
1.400 0.20111
1.700 -0.16799
2.000 -0.58852
2.300 -1.01046
2.600 -1.38169
2.900 -1.65348
3.200 -1.78580
Объяснение:
1Кбайт — 1024байт.
1байт — 8бит.
1) 10240:1024 = 10Кбайт.
2) 204800:8:1024 = 25Кбайт.
что это такое? ооо и оон?м?)