2 / 2 / 0
Регистрация: 06.11.2011
Сообщений: 28
1

Вывести на экран все числа, кратные 2 и 3 из интервала [25, 145]

06.11.2011, 17:03. Показов 7896. Ответов 4
Метки нет (Все метки)

Вот 3 задачки, помогите чем можете пожалуйста.

1.Вывести на экран все числа, кратные 2 и 3 из интервала [25, 145], подсчитать их количество. Напечатать на экране в виде:
Чётные числа: 26 28 30 32 ...
Количество: 24

2. Выдать на экран все четырёхзначные числа, у которых сумма первых двух цифр равна сумме двух последних.

3. Найти сумму чётных чисел от -10 до 10
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.11.2011, 17:03
Ответы с готовыми решениями:

Составить программу, выводящую на экран все чётные числа, кратные данному числу k из интервала [A...B]
Составить программу, выводящую на экран все чётные числа, кратные данному числу k из интервала

Вывести на экран все кратные числа заданным
Ребята помогите программу через процедуру записать Даны натуральные числа А и В. Вывести на экран...

Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.
Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.

Вывести на экран все четырехзначные числа, кратные 1111
вывести на экран все 4х значные числа кратные 1111

4
63 / 63 / 51
Регистрация: 20.05.2011
Сообщений: 116
07.11.2011, 11:22 2
Задача 1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program chisla;
uses crt;
var i,k: integer;
begin
 clrscr;
 k:=0;
 write('Чётные числа*:');
 for i:=25 to 145 do
 if (i mod 2=0) and (i mod 3=0) then
 begin
  write(i,' ');
  k:=k+1;
 end;
 write('Количество: ',k);
 readln;
end.
Добавлено через 6 минут
Задача 2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program chisla;
uses crt;
var a,b,c,d,i: integer;
begin
 clrscr;
 for i:=1000 to 9999 do
 begin
  a:=i div 1000;
  b:=i div 100 mod 10;
  c:=i div 10 mod 10;
  d:=i mod 10;
  if a+b=c+d then write(i,'':1);
 end;
 readln;
end.
1
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
4188 / 1289 / 237
Регистрация: 27.07.2009
Сообщений: 3,961
07.11.2011, 11:23 3
Цитата Сообщение от XlorensX Посмотреть сообщение
3. Найти сумму чётных чисел от -10 до 10
Pascal
1
2
3
4
5
6
7
8
9
var
 i, n: integer;
begin
 n:=0;
 for i:=-10 to 10 do
  if not odd(i) then inc(n,i);
 writeln('Сумма: ',n);
 readln;
end.
1
63 / 63 / 51
Регистрация: 20.05.2011
Сообщений: 116
07.11.2011, 11:25 4
Задача 3.
Pascal
1
2
3
4
5
6
7
8
9
10
11
program chisla;
uses crt;
var sum,i: integer;
begin
 clrscr;
 sum:=0;
 for i:=-10 to 10 do
 if i mod 2 =0 then sum:=sum+i;
 write('‘Сумма= ',sum);
 readln;
end.
1
2 / 2 / 0
Регистрация: 06.11.2011
Сообщений: 28
07.11.2011, 15:05  [ТС] 5
Спасибо всем
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.11.2011, 15:05
Помогаю со студенческими работами здесь

Вывести на экран все целые числа от а до b ,кратные некоторому числу с
Вывести на экран все целые числа от а до b ,кратные некоторому числу с

Вывести на экран все целые числа из диапазона от А до В, кратные трём
задали 10 задач помогите решить 1) вычислить int(1.3) 2)Найти и объяснить ошибки в следующей...

Вывести на экран все двузначные числа,кратные 11 и найти их сумму
Знаю надоела) Вывести на экран все двузначные числа,кратные 11 и найти их сумму.

Вывести на экран все кратные тринадцати натуральные числа, меньше 100
Есть еще такая задачка на циклы. Вывести на экран все кратные тринадцати натуральные числа, меньше...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru