Паскаль!!! срочно напишите программу, только используйте цикл. Найти сумму квадратов всех целых чисел от a до b (значения a и b вводятся с
5-9 класс
|
клавиатуры, b≥a)
var
i, a, b, sum : integer;
begin
read (a, b);
sum := 0;
for i := a to b do
sum := sum + sqr (i);
writeln (sum);
end.
program ex1;
var
i, a, b, otvet : integer;
begin
read (a, b);
otvet := 0;
for i := a to b do
otvet :=otvet +i*i ;
writeln ('otvet=',otvet);
end.
Другие вопросы из категории
сколько байт памяти необходимо,чтобы закодировать графическое изображение на экране компьютера монитора,которое содержит 800 точек по горизонтали и 1000 точек по вертикали при 256 цветах
1. вычти 2
2. умножь на 3
первая из них уменьшает число на экране на 2 , вторая - утраивает его .Запишите порядок команд в программе получения из 11 числа 13 ,содержащей не более 5 команд ,указывая лишь номера команд.
Читайте также
на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
2)Найти среднее арифметическое всех целых чисел от a до 200 (значения a и b вводятся с клавиатуры; a>=200);
Даны два целых числа А и В (А меньше В). Найти сумму квадратов всех целых чисел от А до В включительно.
Найти сумму квадратов всех целых чисел от 1 до 100, реализовав на языке программирования Паскаль с помощью циклов "до" (until/repeat) и "n раз" (for)