var a,b,c:integer;
begin
writeln('введите число и степень'); {здесь прост программа тебя спрашивает какие числа}
read(a,b); {здесь программа читает их}
case b of {тут выполняется условие типа если b и идут сами степени}
0: writeln(1);
1: writeln(a); {здесь что программа выдаст если ты напишешь такую степень}
2: writeln (a*a);
3: writeln (a*a*a);
4: writeln (a*a*a*a);
5: writeln (a*a*a*a*a);
6: writeln (a*a*a*a*a*a);
7: writeln (a*a*a*a*a*a*a);
8: writeln (a*a*a*a*a*a*a*a);
9: writeln (a*a*a*a*a*a*a*a*a);
end;
end.
CLS
INPUT "Введите первое число: ", a
INPUT "Введите второе число: ", b
c = (a + b) / 2
IF INT(c) = c THEN
PRINT "Среднее является целочисленным"
ELSE
PRINT "Среднее не является целочисленным"
END IF
Тестовое решение:
Введите первое число: 18
Введите второе число: 152
Среднее является целочисленным
Задача 2
DIM n AS INTEGER
CLS
INPUT "Введите номер месяца: ", n
SELECT CASE n
CASE 1, 2, 12: PRINT "Зима"
CASE 3 TO 5: PRINT "Весна"
CASE 6 TO 8: PRINT "Лето"
CASE ELSE: PRINT "Осень"
END SELECT
Тестовое решение:
Введите номер месяца: 7
Лето