В ходе лабораторных и математических исследований я выяснил, что эта ерунда нафиг не нужна в современной информатике (только если вы не работаете преподом)
Uses
crt;
var
a, b, c: integer;
begin
clrscr;
writeln('Что вы хотите сделать?');
writeln('1-сложить 2-отнять 3-разделить 4-умножить');
readln(c);
if c = 1 then begin
read(a, b);
writeln(a + b)
end
else
if c = 2 then begin
read(a, b);
writeln(a - b)
end
else
if c = 3 then begin
read(a, b);
writeln(a / b)
end
else
if c = 4 then begin
read(a, b);
writeln(a * b);
end
else
write('Так, стоп, че за фигня? Где то тут меня надурили...');
readkey
end.
<em><u>Но короче и понятнее это написать так:</u></em>
uses
crt;
var
a, b, c: integer;
begin
ClrScr;
Writeln('Что вы хотите сделать?');
Write('1-сложить 2-отнять 3-разделить 4-умножить'); Readln(c);
if (c >= 1) and (c <= 4) then begin
Write('Введите через пробел два натуральных числа: '); Read(a, b);
case c of
1: Writeln(a + b);
2: Writeln(a - b);
3: Writeln(a / b);
4: Writeln(a * b)
end;
end
else Write('Так, стоп, че за фигня? Где то тут меня надурили...');
ReadKey
end.
Выполняется условие b > a, значит выполняется then.
S:=2
S:= 2 + 4
S:= 6
20 Мбайт=20*2^23 бит=5*2^25 бит
32 кГц =32*1000 Г =2^8 *125 Г
24=3*8=3*2^3
-----------------------------------------------------------------------------
20*2^23/(4*32*1000*24)=5*2^25/(125*3*2^13)=2^12/(25*3)=
=4096/75≈54, 7cекунд≈ 1 минута
ответ: 1 минута
Можно записать как:
s := 3,14 * r * r
или
s := pi * r * r
если есть константа числа пи
