Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
votsarskam
0 / 0 / 1
Регистрация: 26.11.2015
Сообщений: 21
1

Даны 2 целых числа. Есть ли у них одинаковые(по значению) разряды?

10.12.2015, 14:44. Просмотров 780. Ответов 1
Метки нет (Все метки)

Даны 2 целых числа. Есть ли у них одинаковые(по значению) разряды?
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2015, 14:44
Ответы с готовыми решениями:

Даны две матрицы.Есть ли в них одинаковые столбцы?
Pascal.Даны две матрицы.Есть ли в них одинаковые столбцы?Очень надо для...

Даны две матрицы. Есть ли в них одинаковые строки?
Даны две матрицы. Есть ли в них одинаковые строки? Помогите срочно надо...

Даны три целых числа, найти среднее из них
Даны три целых числа, найти среднее из них. Средним назовём число, которое...

Даны четыре целых числа. Определить, сколько из них четных
Даны четыре целых числа. Определить, сколько из них четных.

даны четыре целых числа.Определить сколько из них нечётные
даны четыре целых числа.Определить сколько из них нечётные.

1
vint-81
охотник
1009 / 533 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
10.12.2015, 15:27 2
Лучший ответ Сообщение было отмечено votsarskam как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var a,b:longint;
    f:boolean;
begin
    write('a,b: ');readln(a,b);
    a:=abs(a);b:=abs(b);
    f:=false;
    if (a*b=0) 
     then writeln((a mod 10 = b)or(b mod 10 = a))
     else
      begin
       while (not f)and (a>0)and(b>0) do
        begin
         f:= a mod 10 = b mod 10;
         a:=a div 10; b:=b div 10
        end;
       writeln(f)
      end 
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2015, 15:27

Даны 3 целых числа. Вывести на экран те из них, которые являются чётными
Пожалуйста, помогите! Завтра контрольная! Даны 3 целых числа. Вывести на...

Даны три целых числа. Найти сумму двух наибольших из них
1)Даны три целых числа. Найти сумму двух наибольших из них. Входные данные: 3...

Даны четыре целых числа. Определить сумму тех из них, которые кратны 3.
))напишите пожалуйста.


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

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

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