64

Найти произведение и сумму чисел больших 100 и меньших 200 и кратных…

adwer 10 сентября 2019

Найти произведение и сумму чисел больших 100 и меньших 200 и кратных 5 на языке программирования Pascal. Следующими способами: While,For,Repeat.

категория: информатика

50

p — произведениеs — суммаi — цикловая переменная 1. Цикл с предусловием Whilevarp, s, i: longint; [или integer]beginp: =1; s: =0; i: =101; while i < 200 dobeginif i mod 5=0 thenbeginp: =p*i; s: =s+i; end; i: =i+1; [или ing (i) ]end; writeln (p); writeln (c) end.2. Цикл с постусловием Repeat varp, s, i: longint; [или integer]beginp: =1; s: =0; i: =101; repeatif i mod 5=0 thenbeginp: =p*i; s: =s+i; end; i: =i+1; [или ing (i) ]until i >=200; writeln (p); writeln (c) end. 3. Цикл For varp, s, i: longint; [или integer]beginp: =1; s: =0; for i: =101 to 199 dobeginif i mod 5=0 thenbeginp: =p*i; s: =s+i; end; end; writeln (p); writeln (c) end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...