Дано трехзначное число входит ли в него цифра 4.По паскалю,люи помогите,а то завал)
10-11 класс
|
Держи, выведет TRUE, если в записи числа есть 4, и FALSE, если 4 в записи числа не встречается
Program P1;
Var n : Word;
Begin
Write('Введи число: ');
Readln(n);
Write((n mod 10 = 4) or (n div 10 mod 10 = 4) or (n div 100 = 4));
Readln;
End.
Нет так, как 4 это однозначное число
Другие вопросы из категории
to n do begin write('Ââåäèòå êîîðäèíàòû ',i,' ñòàíöèè (x y): '); Readln(z[i].x,z[i].y) end; r:=0; for i:=1 to n do for j:=i+1 to n do begin d:=(z[i].x+z[j].x)/n; c:=(z[i].y+z[j].y)/n; if d
1.Текстовой файл. Ввод из файла.
2.События и процедура обработки событий.
Читайте также
Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.
1. Входит ли в него цифра 4.
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число
8. Дано три натуральных числа x, y, z. Вычислить количество чисел меньших 50.