Создайте программу для вычисления суммы чисел от 1 до 20
5-9 класс
|
я сделал но не уверен что правильно, посмотрите пожалуйста.
var s,i: Integer;
begin
i := 0;
while i <= 20 do begin
s := s + i;
i := i + 1;
end;
writeln ('сумма')
end.
все верно, я добавил функцию работы с окном. uses crt;
Другие вопросы из категории
Как называются устройства, которые не являются основными устройствами компьютера, но без которых использование персонального компьютера было бы неполноценным?
следующее
Саша был непервым
Ваня пришел к финишу третьим
Коля пришел к финишу после саши
Юра не был последним
Ваня и коля всю дистанцию бежали рядом и только на финише один вырвался
Читайте также
ребяята,помогите:)
амеба каждые 3 часа делиться на 2 клетки. Определить, сколько амеб будет через 3,6,9,12 и 24 часа.
3) дано натуральное числоо N и действительное число Х. Вычислить сумму ряда sin(x)+sin(2x)+sin(3x)+...+sin(Nx).
4) написать программу для вычисления n-ой степени числа А.
помогите, пожалуйста)
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n