Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
0 / 0 / 0
Регистрация: 15.02.2015
Сообщений: 3
1

Даны два целых числа. Выяснить, есть ли среди них кратные 10.

26.12.2012, 19:45. Показов 2351. Ответов 1
Метки нет (Все метки)

Даны два целых числа. Выяснить, есть ли среди них кратные 10. Если есть, то вывести число на экран, иначе вывести сообщение «Нет таких чисел».
Напишите, пожалуйста.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2012, 19:45
Ответы с готовыми решениями:

Даны целые числа а1, а2, …, аn. Выяснить, есть ли среди них повторяющиеся числа
сама задача: 1.Даны целые числа а1, а2, …, аn. Выяснить, есть ли среди них повторяющиеся числа, и...

Даны 3 целых числа. определить, есть ли среди них нулевое значение. паскаль
Даны 3 целых числа. определить, есть ли среди них нулевое значение. Помогите плиз паскаль.

Выяснить, есть ли среди чисел, заданных формулой, числа кратные A и одновременно не кратные B
Написать программу, выясняющую, есть ли среди чисел i3-17in2+n3, i=1,…,n числа кратные...

Даны пять различных целых чисел. Найти среди них два числа, модуль разности которых имеет наибольшее значение
Даны пять различных целых чисел. Найти среди них два числа, модуль разности которых имеет: а)...

1
Добры_Змейка
52 / 52 / 43
Регистрация: 09.06.2010
Сообщений: 170
26.12.2012, 20:05 2
Лучший ответ Сообщение было отмечено как решение

Решение

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;
var
   x,y:integer;
BEGIN
    write('Введите первое число ->');
    readln(x);
    write('Введите второе число ->');
    readln(y);
    
    if (x mod 10 = 0 )and(y mod 10 = 0)
       then begin
                  writeln('первое число кратно 10');
                  write('и второе число кратно 10');
            end
       else if y mod 10 = 0
               then write('второе число кратно 10')
               else if x mod 10 = 0
                       then write('первое число кратно 10')
                       else write('Нет чисел кратных 10');
                       
               
END.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2012, 20:05

Даны пять различных целых чисел. Найти среди них два числа, модуль разности которых имеет: а) наибольшее значение б) наименьшее значение
Даны пять различных целых чисел. Найти среди них два числа, модуль разности которых имеет: а)...

Ввести 2 целых числа и выяснить сколько среди них отрицательных значений
Ввести 2 целых числа и выяснить сколько среди них отрицательных значений . результат вывести в виде...

Даны два натуральных числа.Выяснить,в каком из них больше цифр
Даны два натуральных числа.Выяснить,в каком из них больше цифр.(определить функцию для рассчета...

Даны два натуральных числа. Выяснить в каком из них больше цифр
Даны два натуральных числа. Выяснить в каком из них больше цифр. (определить ф-ю для ращета кол-ва...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.