2. var
r: integer;
result: string;
begin
write('вводите число от 1 до 12: ');
readln(r);
case r of
1: Result := 'январь';
2: Result := 'февраль';
3: Result := 'март';
4: Result := 'апрель';
5: Result := 'май';
6: Result := 'июнь';
7: Result := 'июль';
8: Result := 'август';
9: Result := 'сентябрь';
10: Result := 'октябрь';
11: Result := 'ноябрь ';
12: Result := 'декабрь';
end;
writeln(' месяц : ',result);
end.
Объяснение:
я написал ответ только к 2 задаче
постарайся сам сделать 1 ую задачку.
2. var
r: integer;
result: string;
begin
write('вводите число от 1 до 12: ');
readln(r);
case r of
1: Result := 'январь';
2: Result := 'февраль';
3: Result := 'март';
4: Result := 'апрель';
5: Result := 'май';
6: Result := 'июнь';
7: Result := 'июль';
8: Result := 'август';
9: Result := 'сентябрь';
10: Result := 'октябрь';
11: Result := 'ноябрь ';
12: Result := 'декабрь';
end;
writeln(' месяц : ',result);
end.
Объяснение:
я написал ответ только к 2 задаче
постарайся сам сделать 1 ую задачку.
A: array of integer;
i, num, len, amount: integer;
begin
amount := 0; len := 1; i := 0; num := -1;
write('Введите последовательность чисел -> ');
repeat
SetLength(A, len);
read(A[i]);
num := A[i];
i += 1;
len += 1; // длина массива
until (num = 0);
for i := 0 to High(A) do
if (A[i] mod 7 = 0) and (A[i] mod 2 = 0) and (A[i] <> 0) then
amount += 1;
write('Количество чётных чисел, кратных 7: ', amount, '.');
end.