Через бейсик не Паскаль

Ответы:
Юлиана Чумак
24-04-2018 16:07

DIM n AS INTEGER, a AS INTEGERCLSINPUT "n=", ns = 0PRINT "Вводите данные"FOR i = 1 TO n   INPUT "", a   IF a > 0 THEN s = s + aNEXT iPRINT "S="; s

Картинка с текстом вопроса от пользователя Игорь Старостенко

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Через бейсик не Паскаль» от пользователя Игорь Старостенко в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!