Вычислить делится ли целое число, представленное строкой из цифр, на 4

@breezeblocks_ · Регистрация: 21.05.2017

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

Дана строка, состоящая только из цифр. Делится ли целое число, представленное этой строкой на 4?

@U-III · 21.05.2017, 10:38

Pascal
1
2
3
4
5
6
7
8
9
10
var
s:string;
n,c:integer;
begin
write('Введите число: ');readln(s);
Val(s, n, c);
if c<>0 then writeln('неверное число') else 
  if n mod 4 =0 then writeln('число делится на 4') else writeln('число не делится на 4');
readln;
end.

Добавлено через 6 минут
Это тебе пример ввода строки, а уж откуда брать строку реши сам.

@breezeblocks_ · 21.05.2017, 11:01 **[ТС]**

Возможно глупый вопрос, но все же осмелюсь задать. Переменные n, c - это....?

@U-III · 21.05.2017, 11:26

n - это число после преобразования из строки
c - код ошибки преобразования. Если c=0 то ошибки нет.

@Puporev · 21.05.2017, 11:33

Сообщение от U-III

Val(s, n, c);

И Вы думаете что так преобразуете строку типа
1234567891235567997785695854570225
в целое число?

Добавлено через 3 минуты
Признак делимости на 4.
Число делится на 4, если две его последние цифры - нули или образуют число, которое делится на 4.

@U-III · 21.05.2017, 11:33

Puporev, в таком случае достаточно проверить 3 крайние цифры.
if length(s) >4 then s:=copy(s, length(s)-2,3)
вставить перед val

@Puporev · 21.05.2017, 12:04

Сообщение от U-III

проверить 3 крайние цифры.

Зачем 3?
А если в строке 1 символ, например 8?

Pascal
1
2
3
4
5
6
7
8
9
10
var s: string;
begin
repeat
writeln('Введите непустую строку из цифр');;
readln(s);
until s<>'';
if (length(s)=1)and(s[1] in ['0','4','8'])
or(((ord(s[length(s)-1])-48)*10+ord(s[length(s)])-48)mod 4=0) then
writeln('Число делится на 4')else writeln('Число не делится на 4');
end.

@U-III · 21.05.2017, 12:07

Puporev,
Так если один пусть он его и без преобразования проверит

Pascal
1
2
3
4
5
6
7
8
9
10
11
var
s:string;
n,c:integer;
begin
write('Введите число: ');readln(s);
if length(s) >3 then s:=copy(s, length(s)-2,3);
Val(s, n, c);
if c<>0 then writeln('неверное число') else 
  if n mod 4 =0 then writeln('число делится на 4') else writeln('число не делится на 4');
readln;
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@breezeblocks_ 0 / 0 / 0 Регистрация: 21.05.2017 Сообщений: 20

	Вычислить делится ли целое число, представленное строкой из цифр, на 4 21.05.2017, 10:13. Показов 852. Ответов 7 Метки нет (Все метки) Дана строка, состоящая только из цифр. Делится ли целое число, представленное этой строкой на 4? 0

@breezeblocks_ 0 / 0 / 0 Регистрация: 21.05.2017 Сообщений: 20
	21.05.2017, 11:01 [ТС]
	Возможно глупый вопрос, но все же осмелюсь задать. Переменные n, c - это....? 0

@U-III 59 / 59 / 12 Регистрация: 24.10.2012 Сообщений: 170
	21.05.2017, 11:26
	n - это число после преобразования из строки c - код ошибки преобразования. Если c=0 то ошибки нет. 0

@U-III 59 / 59 / 12 Регистрация: 24.10.2012 Сообщений: 170
	21.05.2017, 11:33
	Puporev, в таком случае достаточно проверить 3 крайние цифры. if length(s) >4 then s:=copy(s, length(s)-2,3) вставить перед val 0