Нужно написать программу на языке Паскаль условие такое:
вводится 15 чисел определить каких чисел кратных трём больше положительных или отрицательных
Нет комментариев
Ответы
Гость Var a,p,n,i:integer;
begin
p := 0;
n := 0;
for i := 1 to 15 do
begin
read(a);
if a mod 3 = 0 then
if a > 0 then p := p + 1
else
if a < 0 then n := n + 1
end;
if p > n then writeln('Положительных') else
if p < n then writeln('Отрицательных') else
writeln('Одинаково')
end.
{вариант "как-то посложнее"}
var a,i,s:integer;
begin
s := 0;
for i := 1 to 15 do
begin
read(a);
s := s + ord(a mod 3 = 0) * (ord(a > 0) - ord(a < 0))
end;
if s > 0 then writeln('Положительных') else
if s < 0 then writeln('Отрицательных') else
writeln('Одинаково')
end.
7 комментария:
Ты можешь по-другому вторую часть написать а то мы такие знаки & не проходили
Вторая часть? Какие знаки?
If p& gt
Нпонял че это
Значит, у вас как-то неправильно отображается текст. Там стоят знаки "больше" (>) и "меньше" (<). Если p больше n, то ... И если p меньше n, то ...
Спасибо понял
А вот ещё можно сделать не с двумя ифами а как-то посложнее
Ты можешь по-другому вторую часть написать а то мы такие знаки & не проходили
Вторая часть? Какие знаки?
If p& gt
Нпонял че это
Значит, у вас как-то неправильно отображается текст. Там стоят знаки "больше" (>) и "меньше" (<). Если p больше n, то ... И если p меньше n, то ...
Спасибо понял
А вот ещё можно сделать не с двумя ифами а как-то посложнее Похожие вопросы
Информатика
Что изменя ится при присваивании переменой...
Информатика
В состав каких систем входит подсистема "компьютер"? Для каких систем компьютер является надсистемой?...
Информатика
Средства для создания документа...
Список предметов
