<u>На Паскале:</u>
var a,b,c,x: integer;
begin
writeln('Введите первую цифру: ');
readln(a);
writeln('Введите вторую цифру: ');
readln(b);
writeln('Введите третью цифру: ');
readln(c);
x:=a+b+c;
writeln('x = ',x);
end.
writeln - процедура для записи значений.
readln - процедура считывающая значения с клавиатуры.
1) с
2) b
3) b
4) b
5) b
6)a
7) a
8) a
9) b
10) b
11) e
12) b
13) c
14) b.d.e
Вот вам программа, сделал как понял её: если А - не четное число, выполняем (а*в), а если А - четное, выполняем 2 функции при которых если x>3 выполняем x^2+5, а если <=3, то x-8
сравнение тоже с помощью условных операторов сделал
1 байт =8 бит
1 Кб - 1024 байта = 2^10 байт
1 Мб -1024 Килобайта= 2^10 килобайт
1 Гб <span>- 1024 Мегабайта= 2^10 мегабайт
__________________________
48567 : 8 = </span>6070,875 байт
6070,875 :1024 = 5,9 Кбайт
5,9 : 1024 = 0,006 Мегабайт
Это программа для суммы двух чисел:
program summa;
var a,b,c: real;
begin
read (a,b);
c:=a+b;
write (c);
end.
это программа для разности двух чисел:
program raznost;
var a,b,c: real;
begin
read (a,b);
c:=a-b;
write (c);
end.