program калькулятор;
var
a,b,c,d,e,f,q: real;
begin
writeln ('введите число a: ');
readln(a);
writeln ('введите число b: ');
readln(b);
writeln('выберите,что вы хотите сделать с этими числами,1-сложение,2-вычитание,3-умножение,4-деление');
readln(q);
if (q=1) then begin
d: =a+b;
writeln('ваш результат: ',d);
end;
if (q=2) then begin
f: =a-b;
writeln('ваш результат: ',f);
end;
if (q=3) then begin
c: =a*b;
writeln('ваш результат: ',c);
end;
if (q=4) then begin
e: =a/b;
writeln('ваш результат: ',e);
end;
end.
1920 кб
Объяснение:
80стр
1стр - 40 строк
1 строка - 60 символов
1 символ - 8 бит
8 * 60=480 символов
480 * 40 = 19200 байт на стр
19200 * 80= 1 536 000 байт на 80 стр
1 536 000 * 8000 (т.к 1 кб это 8000 байт)
=1920