Определить, делится ли число на 5 без остатка

@AdamSendler · Регистрация: 29.05.2011

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

Проверить делится ли целое число x на 5 без остатка.

Pascal

uses crt;
var a:integer;
begin
clrscr;
writeln('Vvedite chislo');
readln(a);
if (a mod 5=0) then writeln('chislo delitsa na 5 bez ostatka')
else writekn('chislo ne delitsa na 5 bez ostatka')
readln;
end;

Паскаль выдает ошибку в 9 строчке помогите исправить

@SuPeR XaKer · 05.06.2011, 13:47

else writekn('chislo ne delitsa na 5 bez ostatka');

поставьте

readln;
end;

и здесь точку после end

writekn('chislo ne delitsa na 5 bez ostatka')

l-исправьте

@AdamSendler · 05.06.2011, 13:50 **[ТС]**

Спасибо помогло

go · 05.06.2011, 13:55

Вот

Pascal

Uses 
   CRT;
var a: integer;
begin
clrscr ;
write ('Vvedite chislo ');
readln(a);
 if (a mod 5)=0 then writeln('chislo delitsa na 5 bez ostatka')
                else writeln('chislo ne delitsa na 5 bez ostatka');
 
 
readkey
end.

@SuPeR XaKer · 05.06.2011, 13:58

go
#2
далее #3

Спасибо помогло

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	05.06.2011, 13:47	2
	else writekn('chislo ne delitsa na 5 bez ostatka'); поставьте readln; end; и здесь точку после end writekn('chislo ne delitsa na 5 bez ostatka') l-исправьте 1

@AdamSendler 0 / 0 / 0 Регистрация: 29.05.2011 Сообщений: 7
	05.06.2011, 13:50 [ТС]	3
	Спасибо помогло 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	05.06.2011, 13:58	5
	go #2 далее #3 Спасибо помогло 0

Определить, делится ли число на 5 без остатка

Решение