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

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

21.04.2011, 18:29. Показов 2014. Ответов 7
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
помогите решить))вообще в этом не смыслю)))а то ссесия летит к чертям...
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.04.2011, 18:29
Ответы с готовыми решениями:

Получить сумму тех чисел данной последовательности, которые кратны 7
Дана последовательность целых чисел A1,..A50. Получить сумму тех чисел данной последовательности,...

Получить сумму тех чисел данной последовательности, которые кратны 5 - построить блок-схему
Здравствуйте! Помогите с построением блок схем! Спасибо! 1. Даны целые числа а1,…,а50. Получить...

Получить сумму тех чисел данной последовательности которые нечетные
Написать программы трех типов циклов на языке Pascal для следующей задачи: Даны первые десять...

Получить сумму тех чисел данной последовательности, которые нечетны и отрицательны
Даны натуральное число n, целые числа a1,...,an.Получить сумму тех чисел данной последовательности,...

7
5 / 1 / 1
Регистрация: 19.01.2011
Сообщений: 34
21.04.2011, 18:35 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var i,s,n:integer;
begin
 s:=0;
 for i:=1 to 10 do
   begin
      write('A',i,' = ');
      readln(n);
      if n mod 3=0 then s:=s+n;
   end;
   writeln('Сумма = ', s);
   readln;
end.
1
232 / 181 / 104
Регистрация: 19.03.2010
Сообщений: 949
21.04.2011, 18:37 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var a:array[1..100] of integer;
i,s:integer;
begin
write('Введите размер массива: ');
readln(n);
writeln('Полученный массив: ');
for i:=1 to n do begin
a[i]:=random(20)-10;
write(a[i],' ');
if (a[i] mod 3=0) then s:=s+a[i];
end;
writeln;
write('Сумма, кратных 3= ',s);
end.
Добавлено через 50 секунд
Не успел
1
0 / 0 / 0
Регистрация: 21.04.2011
Сообщений: 14
22.04.2011, 12:17  [ТС] 4
решить с предусловием постусловием и параметром

Добавлено через 36 минут
спасайте плизз((((

Добавлено через 3 минуты
людиииииии((выручайте..

Добавлено через 2 минуты
ну памагите!!!
0
К.О.
534 / 499 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
22.04.2011, 17:27 5
var i,s: integer;
Параметр:
Pascal
1
2
3
For i:=1 to 10 do
  if i mod 3 = 0 then s:=s+i;
Writeln(s);
Предусловие:
Pascal
1
2
3
4
5
6
while i<>10 do
  begin
    inc(i);
    if i mod 3 = 0 then s:=s+i;
  end;
Writeln(s);
Постусловие:
Pascal
1
2
3
4
5
repeat
  inc(i);
  if i mod 3 = 0 then s:=s+i;
Until i=10;
Writeln(s);
1
7 / 7 / 9
Регистрация: 10.02.2011
Сообщений: 17
22.04.2011, 17:38 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
const n=10;
var i,sum:integer;
      a:array[1..n] of integer;
begin
clrscr;
randomize;
writeln('Ishodniy massiv:');
for i:=1 to n do begin
a[i]:=random(10);
if (a[i] mod 3=0) then sum:=sum+a[i];
write(a[i],'  ');
end;
writeln('Summa elementov kratnih trem: ',sum);
end.
0
Mobile Software Engineer
Эксперт С++
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
23.04.2011, 17:03 7
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

зачем массив?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const
 n=10;
var
 i, a, summ: integer;
begin
 summ:=0;
  for i:=1 to n do
   begin
    a:=random(10)+1;
    write(a, ' ');
     if a mod 3=0 then summ:=summ+a;
   end;
 writeln;
 write(summ);
end.
0
KaiTheCat
23.04.2011, 18:30     Получить сумму тех чисел данной последовательности которые кратны 3
  #8

Не по теме:

xD у кого есть 4 вариант решения?

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.04.2011, 18:30

Получить сумму тех чисел данной последовательности, которые нечётны и отрицательны
Даны целые числа а1,…,а50. Получить сумму тех чисел данной последова-тельности, которые нечётны и...

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

Получить сумму трех членов данной последовательности, которые кратны 5.
Даны целые числа A1,..., A20. Получить сумму трех членов данной последовательности, которые кратны...

Получить сумму тех членов данной последовательности,которые нечетные и отрицательные
Даны целые числа А1...А20.Получить сумму тех членов данной последовательности,которые нечетные и...


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

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

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