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

Запросит 16 чисел и вывести на экран для каждого, делится ли оно на 11

12.04.2012, 11:40. Показов 2435. Ответов 7
Метки нет (Все метки)

Помогите решить такую задачку.
Необходимо запросить 16 чисел и вывести на экран для каждого, делится ли оно на 11
Использовать оператор WHILE.

И еще одну если не трудно:

Составить программу, используя оператор FOR.
Составить программу, в которой среди двухзначных чисел печатаются те числа, которые равны сумме квадратов своих цифр, если таких чисел нет, то вывести сообщение.


Зарарннее благодарен за вашу помощь...
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.04.2012, 11:40
Ответы с готовыми решениями:

Запросите 16 чисел и выведите на экран для каждого, делится ли оно нацело на 11
Запросите 16 чисел и выведите на экран для каждого, делится ли оно нацело на 11. Спросите у...

Для четного введенного числа определить, делится ли оно на 10, для нечетного - делится ли оно на 5
вечер добрый,помогите с програмкой на с++ условие:с клавиатуры вводиться целое число,для четного...

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

Из множества целых чисел 1.10 выделить множество чисел, на которые делится без остатка число 7. Вывести это множество на экран
Из множества целых чисел 1..10 выделить множество чисел, на которые делится без остатка число 7....

7
Pascal +
133 / 132 / 127
Регистрация: 16.03.2011
Сообщений: 461
12.04.2012, 12:00 2
Цитата Сообщение от Космостар Посмотреть сообщение
Составить программу, в которой среди двухзначных чисел печатаются те числа, которые равны сумме квадратов своих цифр, если таких чисел нет, то вывести сообщение.
Код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program task_3;
 
Var n,i,k:integer;
a1, a2: byte;
Begin
For I:=10 to 99 do begin
a1:= I mod 10;
a2:= I div 10;
 if (a1 + a2 + (a1 + a2)*(a1 + a2)) = I
 Then begin
 Writeln('I = ', I);
 inc(k);
 end;
 end;
 if k=0 then writeln(' òàêèõ ÷èñåë íåò');
End.
Добавлено через 5 минут
В первой задаче целый числа вводятся или дробные?
1
0 / 0 / 0
Регистрация: 12.04.2012
Сообщений: 13
25.04.2012, 01:02  [ТС] 3
извиняюсь за столь поздний ответ...
в первой задаче я подозреваю что вводится должны любые числа как дробные так и целые
напишите пожалуйста алгоритм решения...

Добавлено через 1 час 30 минут
напишите очень срочно надо, первая задачка
0
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
25.04.2012, 10:35 4
Космостар, я сильно подозреваю, что в первом исключительно целые числа, поскольку иначе div и mod терят смысл...
вторая
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var i,k: integer;
begin
k:=0;
for i:=10 to 99 do
    if i=(sqr(i mod 10)+sqr(i div 10)) then
       begin
       write(i,' ');
       k:=k+1;
       end;
if k=0 then writeln('íåò òàêèõ ÷èñåë');
end.
1
0 / 0 / 0
Регистрация: 12.04.2012
Сообщений: 13
26.04.2012, 11:19  [ТС] 5
ну тут ты прав.
Спасибо за помощь!

Добавлено через 18 часов 8 минут
так может кто решить 1 задачу? (вводить нужно целые числа)
Зараннее благодарен!

Добавлено через 1 минуту
Надеюсь на ваш скорый ответ)
0
тыдыщ
206 / 189 / 166
Регистрация: 19.01.2011
Сообщений: 483
26.04.2012, 11:22 6
Цитата Сообщение от Космостар Посмотреть сообщение
Помогите решить такую задачку.
Необходимо запросить 16 чисел и вывести на экран для каждого, делится ли оно на 11
Использовать оператор WHILE.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  a, i: integer;
 
begin
  while i <> 16 do
  begin
    read(a);
    if a mod 11 = 0 then writeln('YES')
    else writeln('NO');
    inc(i);
  end;
end.
1
Pascal +
133 / 132 / 127
Регистрация: 16.03.2011
Сообщений: 461
26.04.2012, 22:17 7
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program task_3;
uses crt;
Var n,i,k:integer;
a1, a2: byte;
Begin
n:=16;
while k<16 do
begin
writeln('введите число');
readln(a1);
inc(k);
if a1 mod 11 = 0 then writeln('делися') else writeln('не делится');
end;
end.
1
0 / 0 / 0
Регистрация: 12.04.2012
Сообщений: 13
27.04.2012, 18:57  [ТС] 8
cпасибо...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.04.2012, 18:57

Для каждого из некоторого количества натуральных чисел указать, является ли оно числом Фибоначчи
для каждого из некоторого количества натуральных чисел указать, является ли оно числом Фибоначчи....

Для каждого из чисел, входящих в последовательность, выяснить, сколько раз оно в нее входит
Даны целые числа a1,a2,...,an. Для каждого из чисел, входящих в последовательность a1,a2,...,an,...

Задать интервал целых чисел. Для каждого четного вывести по отдельности все цифры, а для каждого нечетного найти их среднее арифметическое
Задать интервал целых чисел. Для каждого четного вывести по отдельности все цифры, а для каждого...

Вам дан набор чисел. Необходимо для каждого из них определить, является ли оно простым
Вам дан набор чисел. Необходимо для каждого из них определить, является ли оно простым. Входные...

Каково будет условие вывода на экран простого числа( оно делится только на 1 и на себя)
Каково будет условие вывода на экран простого числа( оно делится только на 1 и на себя) Есть вот...

Если число делится на 6, то оно делится на 2 и на 3. Доказать на ИП 1-ого порядка
Чтобы доказать утверждение что если число делится на 6, то оно так делится на 2 и на 3, я введу...


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

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

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