var
A, B, C, i: Integer;
begin
Write ('Введите значение A: ');
ReadLn (A);
Write ('Введите значение B: ');
ReadLn (B);
Write ('Введите значение C: ');
ReadLn (C);
i := 0;
if A mod 2 = 0 then
Inc (i);
if B mod 2 = 0 then
Inc (i);
if C mod 2 = 0 then
Inc (i);
Writeln ('Количество четных чисел = ' + IntToStr (i));
end;
Операционная система linux
Для работы нужна командная строка. Например чтобы установить программу нужно написать sudo <название>
так же всё настраивается через командную строку.
ещё пример: dos
Это операционная система уже устарела, была раньше чем виндовс. Для управления использовалась командная строка.
Program m1;
Var x,n,i:integer;
begin
Readln (x,n);
For i:=1 to n do begin
x:=x*x;
end;
Write ('x=',x);
readln;
end.
А)пиксель
ответ:а) пиксель
1,25гб=1024*1,25=1280Мб
1280/16=80секунд
1минута 20 секунд