var
menu, D, S: integer;
begin
Writeln('Введите значение меню');
Writeln('1 - известна большая диагональ');
Writeln('2 - известна меньшая диагональ');
Writeln('3 - Диагонали не известны');
Readln(Menu);
case menu of
1:
begin
Writeln('Введите площадь и значение большей диагонали');
Readln(s, d);
Writeln('Длина меньше диагонали равна: ', (2 * s) / d)
end;
2:
begin
Writeln('Введите площадь и значение меньшей диагонали');
Read(s, d);
Writeln('Длина меньше диагонали равна: ', (2 * s) / d);
end;
3:
Writeln('К сожалению волшебства не будет');
end;
end.
7-3-3
var
a, b: integer;
begin
Writeln('Введите 2 числа:');
Read(a, b);
Writeln('Сумма чисел: ', a + b);
Writeln('Разность чисел: ', a - b);
Writeln('Целочисленное деление: ', a div b);
Writeln('Остаток от деления: ', a mod b);
end.
7-3-5
var
n: integer;
begin
Writeln('Введите N: ');
Read(n);
if n mod 2 = 0 then
Writeln('Следующее четное: ', n+2)
else Writeln('Следующее четное: ', n + 1);
end.
КуМир
алг нач цел а, б, с,д ввод а, б с:= div(а,б) д:= mod(а,б) вывод а + б, нс, а-б, нс, с, нс,д коналг
нач
цел a,c
ввод a
c:=mod(a,2)
если c=0
то
вывод a+2
иначе
вывод a+1
все
кон
var b,q,z:integer;
begin
readln(b,q);
z:=b+q;
writeln(z);
end.
Пример:
5 7
12