Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
паскаль!!!!
помогите пожалуйста составить програму!!!!
: знайти суму цілих додатних чисел кратних 4 і менше 50.
спасибо!
1 | Автор: space | 2013-08-28, 23:41   |  Репутация: [ + 0 ]
var
i, sum: integer;
begin
sum:=0;
for i:=1 to 50 do
if i mod 4 = 0 then sum:=sum+i;
writeln(sum);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2013-08-29, 09:11   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2013-08-29, 09:11   |  Репутация: [ + 211 ]
Код
var    
i, sum: integer;    
begin    
sum:=0;
i:=1;    
while i<=50 do
    begin
       i:=i*4;
       sum:=sum+i;
    end;
end.

Думаю, так будет оптимальней.
3 | Автор: Fireleo | 2013-08-31, 13:44 | Изменено: Fireleo - Сб, 2013-08-31, 13:46   |  Репутация: [ + 30 ]
я всегда думал, что мы тут не за оптимальностью гонимся)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2013-08-31, 20:46   |  Репутация: [ + 211 ]
Нет конечно, но и лишним не будет.
5 | Автор: Fireleo | 2013-09-01, 02:36   |  Репутация: [ + 30 ]
Добрый вечер.Помогите пожайлуста сделать программу на языке паскаля
2. Реализовать на Паскале алгоритм: Дан массив F (15). Умножить все элементы на 0.5, начиная с первогопо порядку отрицательного числа.
3. Реализовать на Паскале: Дана матрица В (6, 8).
Выяснить, что больше: произведение элементов четных столбцов или сумма
элементов нечетных строк.
6 | Автор: jlexa198 | 2013-09-11, 18:50   |  Репутация: [ + 0 ]
6 | Автор: jlexa198 | 2013-09-11, 18:50   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: