Var
a:array[1..12]of integer;
m, n:integer;
Begin
a[1]:=31;a[7]:=31;
a[2]:=28;a[8]:=31;
a[3]:=31;a[9]:=30;
a[4]:=30;a[10]:=31;
a[5]:=31;a[11]:=30;
a[6]:=30;a[12]:=31;
Write('Введите номер месяца -> ');
Readln(m);
Write('Год високосный(1 - да || 0 - нет)?');
Readln(n);
if (m = 2) then Writeln(a[m] + n) else
Writeln(a[m]);
end.
program perimetr;
uses crt;
var a,b,c:real;P:real;
begin
writeln('ведите число');
read(a,b,c);
P:=a+b+c;
write(p)
end.
а с площадью все тоже самое.
Var a, b, answer: integer;
function gcd(m, n: integer): integer;
var modulo: integer;
begin
modulo := m mod n;
if modulo = 0 then gcd := n
else gcd := gcd (n, modulo) end;
begin
write('Введите 2 числа: '); readln(a, b);
answer := gcd(a, b);
writeln('Наибольший общий делитель: ', answer);
<span>end.</span>
Б) остольные не верны. Возможно А), но больше Б)
Ответ:
Объяснение:
и здесь в результате будет ошибка в строке
Writeln (A.B)
нужно перечислить переменные через запятую и в конце точку с запятой: Writeln (A,B);