Ввести число Х и определить, делится ли оно на 2, на 5, на 3

@Crossic · Регистрация: 13.01.2016

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

Ввести число Х и определить, делится ли оно на 2, на 5, на 3.
Создала поле для ввода числа (Edit1), пишу кнопку деления на 2 и выдает ошибку где MOD

a:=strtofloat(edit1.Text);
if (a mod 2) = 0 then
begin
label1.Caption:='Делится без остатка';
s:=a/2;
Edit2.Text:=floattostr(s);

@AHBAR · 14.04.2016, 05:07

Crossic,

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

a:=strtofloat(edit1.Text);

используйте StrToInt(Edit1.Text), в любом случае смотрите - если дробное поделить на любое число (кроме самого себя), то остаток все равно будет. поэтому операция mod предназначена для целых чисел

@Crossic 1 / 1 / 0 Регистрация: 13.01.2016 Сообщений: 25
		1
	Ввести число Х и определить, делится ли оно на 2, на 5, на 3 13.04.2016, 21:26. Показов 1159. Ответов 1 Метки нет (Все метки) Ввести число Х и определить, делится ли оно на 2, на 5, на 3. Создала поле для ввода числа (Edit1), пишу кнопку деления на 2 и выдает ошибку где MOD a:=strtofloat(edit1.Text); if (a mod 2) = 0 then begin label1.Caption:='Делится без остатка'; s:=a/2; Edit2.Text:=floattostr(s); 0

@AHBAR 1077 / 488 / 316 Регистрация: 05.04.2013 Сообщений: 2,141
	14.04.2016, 05:07	2
	Crossic, Сообщение от Crossic a:=strtofloat(edit1.Text); используйте StrToInt(Edit1.Text), в любом случае смотрите - если дробное поделить на любое число (кроме самого себя), то остаток все равно будет. поэтому операция mod предназначена для целых чисел 0

Опции темы