Ответы Mail.ru
Образование
ВУЗы, Колледжи
Детские сады
Школы
Дополнительное образование
Образование за рубежом
Прочее образование
Лидеры категории
Лена-пена
М.И.
Y.Nine
•••
Искусственный Интеллект
Искусственный Интеллект
Искусственный Интеллект
Паша
(3933)
17 лет назад
кинь дистриб паскаля в мыло - помогу. (turbo.exe turbo.tpu turbo.tph turbo.ini кажется ) :)
Пользователь удален
(2195)
17 лет назад
Очень приблизительно:
program HelloWorld;
BEGIN
var Sum : Integer;
vat N : Integer;
Sum := 0;
while (readln(N)) do
begin
if (((N / 5) = trunc(N / 5)) and (N > 15)) then Sum := Sum + N;
end;
writeln("Sum = ", Sum);
END.
На паскале не писал много лет. Но идеи основные здесь изложены ;-)
program HelloWorld;
BEGIN
var Sum : Integer;
vat N : Integer;
Sum := 0;
while (readln(N)) do
begin
if (((N / 5) = trunc(N / 5)) and (N > 15)) then Sum := Sum + N;
end;
writeln("Sum = ", Sum);
END.
На паскале не писал много лет. Но идеи основные здесь изложены ;-)
Похожие вопросы
Очень прошу помогите!!!!!!!!!!!!!!!!!!!!!!!!!
Найти сумму чисел,вводимых с клавиатуры, которые кратны 5 и больше 15!!!!Используя циклическую конструкцию(желательно while)