Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
suburban007
0 / 0 / 0
Регистрация: 21.10.2014
Сообщений: 5
1

Посчитать, сколько среди пар чисел таких, которые дают в сумме число, кратное 13

21.10.2014, 11:52. Просмотров 1155. Ответов 1
Метки нет (Все метки)

(Цикл с постусловием)
Вводятся пары целых чисел. Посчитать, сколько среди них пар, дающих в сумме число, кратное 13. Подсчет закончить после ввода пары нулей.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.10.2014, 11:52
Ответы с готовыми решениями:

Найти, сколько среди чисел n, n 1, ..., m таких, которые являются номерами високосных годов
Даны натуральные n m ( n<m ) найти сколько среди чисел n , n+1, ..., m таких которые являются...

Класс, выясняющий, сколько среди заданных чисел пар, которые дают в сумме четное число
Добрый вечер. Помогите пожалуйста, нужно написать класс.:cry: Заданы три числа. Выяснить, сколько...

Определить сколько существует пар чисел, которые в сумме (по правилам планеты Олимпия) дают число Х
Мегапопулярный Дзидзьо посетил планету Олимпия, где живет много поклонников спорта. Тяжелая...

Поиск пар чисел в массиве, которые в сумме дают определенное число
Условия программы: Дан целочисленный массив положительных чисел,(не отсортированный) и полож число...

Вывести на экран количество пар чисел, которые в сумме дают заданное число s
Условия программы: Дан целочисленный массив чисел,(не отсортированный) и полож число "s" типа int...

1
Joy
Эксперт Pascal/Delphi
2198 / 1219 / 1445
Регистрация: 29.08.2014
Сообщений: 4,444
22.10.2014, 12:42 2
Лучший ответ Сообщение было отмечено suburban007 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  a,b,c,d:integer;
begin
  c:=0;d:=0;
  writeln ('Вводите пары чисел через пробел, например -  12 14');
  repeat  
    readln(a,b);inc(d);
    if ((a+b) mod 13=0) and (a+b<>0) then inc(c);
  until (a=0) and (b=0);
  writeln(' Итого ',c ,'  из ',d-1,' введенных пар');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.10.2014, 12:42

Заданы три числа. Сколько пар в сумме дают четное число?
Добрый вечер. Помогите пожалуйста с задачкой :) Заданы три числа. Выяснить сколько пар в сумме...

Сколько существует пятизначных чисел? Сколько среди них таких, которые начинаются на 2 и заканчиваются 5?
Сколько существует пятизначных чисел? Сколько среди них таких что начинаются на 2 и заканчиваются 5?

вводятся числа a и b. Надо найти сумму таких чисел в диапазоне [a;b], которые при возведении в квадрат дают число с последней цифрой 6.
Помогите пожалуйста написать программку, вот задание - вводятся числа a и b. Надо найти сумму таких...


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

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

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