Вопрос по информатике:
Пожалуйста,помогите! Срочно! В ПАСКАЛЕ:1) найти количество положительных целых чисел от 45 до 215;
2) Найти сумму положительных целых чисел от -50 до 200, кратных 5 и 8;
3) Найти сумму и количество отрицательных четных целых чисел, введенных с клавиатуры. Печать результата по вводу числа 0.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 17.09.2018 16:42
- Информатика
- remove_red_eye 10265
- thumb_up 6
Ответы и объяснения 1
//Приунываю
//Pascal ABC.NET v3.1 сборка 1172
//1
begin
writeln(215-45+1);
end.
//2
Var
i,s:integer;
begin
for i:=-50 to 200 do
if (i mod 5=0) and (i mod 8=0) and (i>0) then s:=s+i;
writeln(s);
end.
//3
Var
i,s,a:integer;
begin
a:=1;
repeat
if (a<0) and (a mod 2=0) then
begin
inc(i);
s:=s+a;
end;
read(a);
until a=0;
writeln('Sum=',s,' and number=',i);
end.
- 18.09.2018 14:10
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.