1 гб= 1024 мб
2 гб = 2048 мб
2048 \ 3 = 682, 6
ответ а)
Program Division;
var a, b, c, d, m, n, : integer
begin
readln (a, b, c. d);
m:=a*d;
n:=b*c;
write (m, n)
end
If - если
Then - то
Else - иначе
Например:
C:= A - B;
(Если С больше нуля то)
If C > 0 then begin
(Вывод о том что)
Writeln(число положительное);
...
(Иначе оно)
End esle
(Может быть только отрицательным)
Writeln(число отрицательное);
...
Это же можно проделать с двумя if(если)
If C > 0 then begin
Writeln(число положительное);
...
(Если С меньше нуля)
If C < 0 then begin
Writeln(число отрицательное);
...
Var ch: char;
begin
write('Введите символ: '); read(ch);
writeln('Предыдущий символ: ', pred(ch), ' | ', 'Следующий символ: ', succ(ch));
<span>end.</span>