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

Вывести на экран четные числа

10.12.2015, 00:45. Просмотров 808. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста! Пришел из армейки, все забыл, а завтра надо сдать!

Вывести на экран четные числа в диапазоне [15,15]. Подсчитать их сумму.
Составить 3 программы решения задачи:
1) с циклом for
2) с циклом while
3) с циклом repeat
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2015, 00:45
Ответы с готовыми решениями:

Вывести на экран все четные числа от 0 до N
Дано число N (N > 0) Вывести на экран все четные числа от 0 до N . (без...

строка символов,которaя состоит из десятичных чисел и который отделены пробелом.вывести на экран четные числа
данa строка символов,которaя состоит из десятичных чисел и который отделены...

Вывести на экран все четные элементы файла
Создать файл из 100 вещественных чисел и вывести на экран все четные элементы...

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

Вывести на экран сначала четные элементы массива, затем нечетные
5. Дан массив целых чисел. Вывести на экран сначала его четные элемен¬ты, затем...

3
Mazilo
36 / 36 / 72
Регистрация: 31.10.2014
Сообщений: 206
10.12.2015, 17:07 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Var i, s : integer;
begin
{for}
s:=0;
For i:=-15 to 15 do
begin
if ((i mod 2) = 0) then
begin
s:=s+i;
Write(i:3);
end;
end;
Writeln;
Writeln(s);
{while}
s:=0;
i:=-15;
while (i <= 15) do
begin
if ((i mod 2) = 0) then
begin
s:=s+i;
Write(i:3);
end;
i:=i+1;
end;
Writeln;
Writeln(s);
{repeat}
s:=0;
i:=-15;
repeat
if ((i mod 2) = 0) then
begin
s:=s+i;
Write(i:3);
end;
i:=i+1;
until(i >=15);
Writeln;
Writeln(s);
Readln;
end.
0
sourvld
0 / 0 / 0
Регистрация: 10.12.2015
Сообщений: 2
10.12.2015, 21:08  [ТС] 3
Огромное спасибо!

Добавлено через 19 минут
Сейчас смотрю цикл for. Программа выводит сумму элементов, а не чисел. Сумма должна быть 0, а не 15...
0
Mazilo
36 / 36 / 72
Регистрация: 31.10.2014
Сообщений: 206
11.12.2015, 20:39 4
0 и выводится.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.12.2015, 20:39

Вывести на экран сначала четные элементы массива, затем нечетные
Дан массив целых чисел. Вывести на экран сначала его четные элемен¬ты, затем...

Вывести все четные числа от 2 до 100 включительно.
Задали три задачи написать помогите плиз!!!!!! Тема:&quot; Цикловые операторы языка...

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


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

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

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