Запустить программу калькулятор,выполнять простые вычесления с помощью команды меню,порядок вычесленеия следующий:вводится первое число,а затем знак опреации и второе число.
1) var
s:string[100];
begin
write('Введите фамилию: ');
readln(s);
writeln;
writeln('Символов: ',length(s));
writeln('3ий символ: ',s[3]);
end.
2)var
y,x:real;
begin
readln(x);
y:=(sqr(x)+sqrt(x))/10;
writeln(y);
end.
3)var
g:integer;
begin
writeln('Год рождения: '); readln(g);
if 2019-g>18 then writeln('Совершеннолетний')
else if 2019-g<18 then writeln('Увы')
else writeln('В течение этого года станет совершеннолетним')
end.
4)var
sum,n,i:integer;
begin
readln(N);
sum:=0;
for i:=10 to N do
sum:=sum+i;
writeln(sum/(i-9));
end.
5)var
a,b:integer;
begin
repeat
readln(a,b);
writeln('Repeat');
until ((a>=0) and (a mod 2=0)) or ((b>=0) and (b mod 2=0));
writeln('a*b= ',a*b);
writeln('a+b= ',a+b);
end.
Если это Паскаль, то вот:
program prog1;
var h, a: integer;
P, b, S: real;
begin
write('Высота=');
readln(h);
write('Основание=');
readln(a);
S:=h*a/2;
b:=sqrt((a/2)*(a/2)+h*h);
P:=b+b+a;
writeln('Периметр= ',P);
writeln('Площадь= ',S);
end.
Я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))
var
a: string;
b: integer;
begin
writeln ('Введите строку');
read (a);
if (a='город минск')
then writeln ('город МИНСК')
else
begin
writeln ('введите "город минск", 1-продолжить, 0-выйти');
read (b);
end;
while (b = 1) do
begin
writeln ('Введіте строку');
read (a);
if (a='город минск')
then writeln ('город МИНСК')
else
begin
writeln ('введите "город минск", 1-продолжить, 0-выйти');
read (b);
end;
end;
end.
1. команда 2: 8:2 = 4
2. команда 2: 4:2 = 2
3. команда 2: 2:2 = 1
4. команда 1: 12
5. команда 2: 12:2 = 6
Ответ: 6