Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/2: Рейтинг темы: голосов - 2, средняя оценка - 4.50
Влад9н
0 / 0 / 1
Регистрация: 24.01.2013
Сообщений: 5
1

надо переделать задачу она уже решена ну ее нужно переделать

24.01.2013, 19:44. Просмотров 451. Ответов 3
Метки нет (Все метки)

вот задача
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const n=4;
var a:array[1..n] of integer;
i,s:integer;
begin
for i:=1 to n do
begin
write('Введите ',i,'-й элемент массива');readln(a[i]);
end;
writeln('Ответ: ');
s:=0;
 for i:=1 to n do
 begin
 if a[i] mod 3 = 0 then s:=s+a[i];
end;
write(s);
end.
но ее нужно переделать так что бы небыло for to и do
а было if then and else и тд
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.01.2013, 19:44
Ответы с готовыми решениями:

Нужно немного переделать задачу
Программа работает так что когда доходит до буквы B начинает с буквы С, а не с буквы A,помогите...

Нужно переделать задачу(моделирование системы)
вот решённая задача. Нужно переделать под задание.

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

Программу сортировки нужно переделать так, чтобы она содержала процедуры
следующую программу сортировки нужно переделать так, чтобы она содержала процедуры uses crt;...

Необходимо сделать задачу методом итераций (задача уже решена рекурсивно)
Ниже я прикрепляю код, решающий задачу при помощи рекурсии. Помогите, пожалуйста, написать для этой...

3
GggDrej
72 / 72 / 64
Регистрация: 21.01.2013
Сообщений: 147
24.01.2013, 20:26 2
без цикла только так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const n=4;
var a:array[1..n] of integer;
s:integer;
begin
for i:=1 to n do
begin
write('Введите ',i,'-й элемент массива');readln(a[i]);
end;
writeln('Ответ: ');
s:=0;
if a[1] mod 3=0 then s:=s+a[1];
if a[2] mod 3=0 then s:=s+a[2];
if a[3] mod 3=0 then s:=s+a[3];
if a[4] mod 3=0 then s:=s+a[4];
write(s);
end.
0
Влад9н
0 / 0 / 1
Регистрация: 24.01.2013
Сообщений: 5
24.01.2013, 20:33  [ТС] 3
Цитата Сообщение от GggDrej Посмотреть сообщение
без цикла только так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const n=4;
var a:array[1..n] of integer;
s:integer;
begin
for i:=1 to n do
begin
write('Введите ',i,'-й элемент массива');readln(a[i]);
end;
writeln('Ответ: ');
s:=0;
if a[1] mod 3=0 then s:=s+a[1];
if a[2] mod 3=0 then s:=s+a[2];
if a[3] mod 3=0 then s:=s+a[3];
if a[4] mod 3=0 then s:=s+a[4];
write(s);
end.
без for можно ???
0
GggDrej
72 / 72 / 64
Регистрация: 21.01.2013
Сообщений: 147
24.01.2013, 20:36 4
абсурд
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const n=4;
var a:array[1..n] of integer;
s:integer;
begin
writeln('Введите 1-й элемент массива: '); readln(a[1]);
writeln('Введите 2-й элемент массива: '); readln(a[2]);
writeln('Введите 3-й элемент массива: '); readln(a[3]);
writeln('Введите 4-й элемент массива: '); readln(a[4]);
writeln('Ответ: ');
s:=0;
if a[1] mod 3=0 then s:=s+a[1];
if a[2] mod 3=0 then s:=s+a[2];
if a[3] mod 3=0 then s:=s+a[3];
if a[4] mod 3=0 then s:=s+a[4];
write(s);
end.
1
24.01.2013, 20:36
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.01.2013, 20:36

Вот програмка, надо переделать штоби она мИстыла
Вот програмка, надо переделать штоби она мИстылаFILE *fp; If((fp=fopen("test", “w”))==NULL) ...

Готовая программа, нужно переделать ее чтобы она работала с УКАЗАТЕЛЯМИ
Вычислить значение выражения тут Вычислить значение выражения (3a+4)/(a-в квадрате-5a-9) для а=...

Готовую задачу, сделаную в Pascal нужно переделать под Delphi
Program dip; uses graph,crt,dos; label r1,r2,r3,r4,rm; var ...


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

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

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