1. Процессор
2.
3. Оперативная
4. Кэш
5. Внешняя
6. Шина
У вас на фото ничего не видно, вот пару ответов, попытайтесь сделать более чёткую фотографию.
program TabulW;
var
a, b, c, x, dx, w: real;
begin
a := 2.8;
b := -0.3;
c := 4.0;
x := 1.0;
dx := 0.05;
Writeln(' a b c x w');
while x - 2 < 0.0001 do
begin
if x < 1.2 then
w := a * x * x + b * x + c
else if x > 1.2 then
w := (a + b * x) / sqrt(x * x + 1)
else
w := a / x + sqrt(x * x + 1);
Writeln(a:6:3, b:8:3, c:8:3, x:8:3, w:8:3);
x += dx
end;
Readln;
end.
NORTON ENT., NOD32,Johny McAfee,Cloudfare и тд, крч все антивирусные и анти ддосные компании
1) program z1;
var k,i:integer;
begin
i:=4;
k:=0;
while i<=20 do
begin
if i mod 2=0 then
begin
writeln(i);
k:=k+i;
end;
i:=i+1;
end;
writeln('сумма ',K)
end.
2) program z2;
var i,k:integer;
begin
k:=1;
i:=3;
repeat
if i mod 2 <> 0 then
begin
writeln(k,')',i);
k:=k+1;
end;
i:=i+1;
until k>20;
end.
//1
var i: byte;
begin
for i := 2 to 20 do
writeln('Цена за ',i,' = ', 20.4 * i);
end.
//2
var i: byte;
Price, TotalPrice: real;
begin
Price := 20.4;
for i := 2 to 20 do
begin
TotalPrice := Price * i;
writeln('Цена за ',i,'шт. = ', TotalPrice);
end;
end.