В ПаскалеABC: 1) Вывести на экран квадраты и кубы чисел от 2 до 10 2) Найти сумму целых…

Question

74

В ПаскалеABC: 1) Вывести на экран квадраты и кубы чисел от 2 до 10 2) Найти сумму целых положительных четных чисел меньше 200 3) Найти сумму целых положительных чисел, кратных 4 и меньше 100

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

ответить

в избранное ссылка

Знаете ответ?

markmur · Accepted Answer

64

markmur

16 марта 2023

В одной программе предусмотренны все 3 условияprogram abc; var i,sum1,sum2: integer; beginfor i: =2 to 10 dowriteln ('kvadraty',i*i,' Kyby',i*i*i); for i: =1 to 200 dosum1: =sum1+i; writeln (sum1); for i: =1 to 99 doif i mod 4<>0 then sum2: =sum2+i; writeln (sum2); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: