Если число нечетное, то вывести соответствующее сообщение и вернуться на начало программы

@Koshmarick · Регистрация: 22.10.2009

Студворк — интернет-сервис помощи студентам

условие задачи 1. Задано четное число, возвести его в степени 2, 3, 4. Если число нечетное, то вывести соответствующее сообщение и вернуться на начало программы.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
x : real;
label 10;
begin
10:
writeln ('Введите четное число ');
read (x);
If (x mod 2 = 0) then 
begin
writeln (x,' в степени 2 =  ',x*x);
writeln (x,' в степени 3 =  ',x*x*x);
writeln (x,' в степени 4 =  ',x*x*x*x);
end;
else 
writeln ('Нужно ввести четное число '); goto 10;
end.

Но у меня в 4 строке снизу выдает ошибку - ожидался оператор. Подскажите что не так.

@MAcK · 05.11.2009, 08:55

1. Нельзя использовать для операторы числа, то есть начинать из чисел.
i10 будет корректно

@TAVulator · 05.11.2009, 09:01

Koshmarick, ошибка из-за точки с запятой перед else

@MAcK · 05.11.2009, 09:03

2. writeln (x,' в степени 4 = ',x*x*x*x);
end {не должно быть точки с запятой}
else

@Koshmarick · 05.11.2009, 09:17 **[ТС]**

Спасибо за помощь.
PS. Как "избавиться " от такой надписи - Последний раз редактировалось inter; Сегодня в 10:35. Причина: используйте форматирование кода

Добавлено через 3 минуты

Сообщение от brugon

1. Нельзя использовать для операторы числа, то есть начинать из чисел.
i10 будет корректно

Но PascalABC пропускает без ошибок и где то сегодня ночью читал что метки могут начинаться с цифр и латинских букв.
PS. Просто я этот язык изучаю всего 3-ий день. Приспичило

@Puporev · 05.11.2009, 10:18

PS. Как "избавиться " от такой надписи - Последний раз редактировалось inter; Сегодня в 10:35. Причина: используйте форматирование кода

Так самому обрамлять код тегами. Выделяете код, потом в тулбаре над окном сообщения жмете PASCAL.

@User1990 · 05.11.2009, 10:31

Koshmarick, а у тебя программа когда- нибудь заканчивается или нет ...

@Vladiator · 05.11.2009, 10:51

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
 x:real;
begin
 x:=1;
 while x mod 2 <> 0 do begin
  readln(x);
  if x mod 2 = 0 then begin
   writeln (x,' в степени 2 =  ',x*x);
   writeln (x,' в степени 3 =  ',x*x*x);
   writeln (x,' в степени 4 =  ',x*x*x*x);
  end else writeln('Введите чётное число');
 end;
 readln;
end.

PS: раздел меток пишется перед разделом переменных и вообще использование меток устарело

@AloneHere · 05.11.2009, 14:09

C помощью Repeat-Until легко делается

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program n1;
 var x:integer;
  begin
   repeat
    write('Vvedite chetnoe chislo x = ');
    readln(x);
   until (x mod 2 = 0);
   writeln(x,' v stepeni 2 = ',x*x);
   writeln(x,' v stepeni 3 = ',x*x*x);
   writeln(x,' v stepeni 4 = ',x*x*x*x);
   readln;
  end.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

Если число нечетное, то вывести соответствующее сообщение и вернуться на начало программы

Решение

Решение

@MAcK Комбайнёр 1606 / 704 / 77 Регистрация: 27.05.2008 Сообщений: 2,535
	05.11.2009, 08:55
	1. Нельзя использовать для операторы числа, то есть начинать из чисел. i10 будет корректно 0

@TAVulator ⚽ 4191 / 1292 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	05.11.2009, 09:01
	Koshmarick, ошибка из-за точки с запятой перед else 1

@MAcK Комбайнёр 1606 / 704 / 77 Регистрация: 27.05.2008 Сообщений: 2,535
	05.11.2009, 09:03
	2. writeln (x,' в степени 4 = ',xxx*x); end {не должно быть точки с запятой} else 1

@User1990 26 / 26 / 11 Регистрация: 03.11.2009 Сообщений: 158
	05.11.2009, 10:31
	Koshmarick, а у тебя программа когда- нибудь заканчивается или нет ... 0