54

Подскажите, пожалуйста решение на задачу Паскаль по информатике

novikov 22 февраля 2023

Подскажите, пожалуйста решение на задачу Паскаль по информатике. Даны натуральные числа от 1 до 50. Найдите сумму тех, которые делятся на 5 и на 7. Решите пожалуйста цикл с предусловием и с постусловием, блок схемы и программы.

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

71

Program one; vara,b: integer; beginb: =0; for a: =1 to 50 doif (a mod 5=0) and (a mod 7=0) then b: =b+a; writeln (b); end.

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

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