Найти те числа данного отрезка, которые оканчиваются на 3

@xxxmorgan · Регистрация: 23.02.2011

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

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, которые оканчиваются на 3. Проверку, оканчивается ли число на тройку, сделать с помощью логической функции пользователя.

@Daemon025 · 23.02.2011, 00:18

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
    uses crt;
    var i,a,b:integer;
begin
  repeat
    write('a= ');
    readln(a);
    write('b= ');
    readln(b);
  until (b>a);
  for i:=a to b do
  if (i mod 10=3) then writeln(i,' ');
  Readln;
end.

@Puporev · 23.02.2011, 09:35

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

сделать с помощью логической функции пользователя.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
function Krat3(a:integer):boolean;
begin
Krat3:=a mod 3=0;
end;
var i,a,b,k:integer;
begin
writeln('Введите диапазон натуральных чисел');
repeat
 readln(a,b);
until (a>0)and(b>a);
writeln('Числа, кратные 3:');
k:=0;
for i:=a to b do
if Krat3(i) then
 begin
  write(i,' ');
  k:=1;
 end;
if k=0 then write('Таких чисел нет');
Readln
end.

@Daemon025 · 23.02.2011, 13:18

Найти те числа этого отрезка, которые оканчиваются на 3

Pascal
1
2
3
4
function Krat3(a:integer):boolean;
begin
Krat3:=a mod 3=0;
end;

Эта функция проверяет кратность 3.

@Puporev · 23.02.2011, 13:23

Да, не доглядел.....
Тогда так

Pascal
1
2
3
4
function Cifr3(a:integer):boolean;
begin
Cifr3:=a mod 10=3;
end;

Добавлено через 52 секунды
Соответственно поправить текст программы..

Новые блоги и статьи Все статьи Все блоги /
EmBitz, создание проекта, отладка, прошивка locm 15.07.2025 Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .	Трассировка корутин Kotlin с OpenTelemetry mobDevWorks 14.07.2025 Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .	Облачные приложения на Rust: руководство по архитектуре микросервисов golander 13.07.2025 Когда я впервые взялся за проектирование облачной платформы для одного из наших клиентов, выбор стоял между привычными Go и Java. Но после нескольких месяцев разработки микросервисной системы,. . .	Как Node.js выполняет асинхронные операции Reangularity 13.07.2025 Каждый раз, когда я рассказываю про Node. js, возникает один и тот же вопрос: "Как эта штука может быть быстрой, если JavaScript — однопоточный язык?" И это действительно кажется парадоксом. Ведь в. . .	Как писать чистый, тестируемый и качественный код на Python py-thonny 12.07.2025 Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .
Blazor и контроллер сервопривода IoT Meadow Maple Wired 11.07.2025 Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .	Генерация OpenQASM из кода Q# EggHead 10.07.2025 Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .	Изучаем новый шаблон ИИ-чата .NET AI Chat Web App stackOverflow 10.07.2025 В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .	Результаты исследования от команды ARP (июль 2025 г.) Programma_Boinc 10.07.2025 Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .	Angular vs Svelte - что лучше? Reangularity 09.07.2025 Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .

@xxxmorgan 0 / 0 / 0 Регистрация: 23.02.2011 Сообщений: 4

	Найти те числа данного отрезка, которые оканчиваются на 3 23.02.2011, 00:07. Показов 4435. Ответов 4 Метки нет (Все метки) Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, которые оканчиваются на 3. Проверку, оканчивается ли число на тройку, сделать с помощью логической функции пользователя. 0

Опции темы