Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Кибер война, очень похожа на обычную войну, тем что большое количество людей борется друг с другом, для того что бы не дать пробраться к своей информации делают это дистанционно.
var a,b,i,s: integer;
begin
writeln('введите 2 числа');
readln(a); readln(b);
s: =0;
if a< b then
for i: =a to b do
if i mod 2 = 0 then
s: =s+1;
end;
if a> b then
for i: =b to a do
writeln(s)
end.
var
i: integer;
s: real;
m: array[1..2,1..6] of real;
for i: =1 to 6 do
readln(m[1,i]);
readln(m[2,i]);
s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;
writeln(s);
Популярные вопросы