Вход
Быстрая регистрация
Если вы у нас впервые: О проекте FAQ
-1

Нужно написать программу на паскале.

Hot [-3] более месяца назад

Нужно написать программу на паскале. Она должна выводить сумму всех нечетнхы чисел, которые делятся на 7.

Инкогнито
 Господин работодатель!
Уж если у вас хватило (чегой-то-там) перепутать Большой вопрос с биржей фриланса - неплохо было бы вместе с заданием и цену за работу указывать.
Но сперва очень неплохо было бы отучиться хамить дамам!
 более месяца назад
комментировать
0

program S7;

uses Crt;

const

max = 1000;

type

list = array[1..max] of integer;

var

data: list;

i: integer;

j: integer;

s: longint;

begin

Write('Now generating S 1000 numbers...');

J:=1; S:=0;

for i:=1 to max do

if i mod 7 = 0 then

begin

data[j]:=i;

j:=J+1;

end

Writeln;

for i:=1 to j do S:=S+data[j];

Write('В первых ' max 'нат. чисел находится ' j 'семерек, сумма которых ' S );

repeat until keypressed;

end.

ВасВас [20.8K]
Не вдаваясь в подробности как алгоритма, так и текста Вашей программы, замечу: программу можно значительно упростить.
Programm S7;
uses CRT;
begin
writeln "Сумма всех нечётных чисел, которые делятся на 7, равна бесконечности";
end.
Любой стОящий программист подтвердит Вам, что эта программа правильная как с точки зрения программирования, так и (в первую очередь) с точки зрения математики.
 более месяца назад
комментировать
0

Ох уж эта дебильная школа! Сколько этих "программистов" после ее окончания не знают как работать с обычными офисными программами, где не надо ничего программировать, а надо просто уметь пользоваться готовыми программами. Но в школе этому не учат!

0

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

Hot [-3]
ну от таких как ты я ничего и не ожидаю, удачи)))))))))))))))  более месяца назад
oksana2112­89 [2.1K]
Но мы с Вами на личности не переходили, это Вам удачи.  более месяца назад
комментировать
Знаете ответ?
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее..
Быстрая регистрация
OpenID