Задать вопрос
13 января, 22:08

Цикл "Для". Написать программу

1) Найти сумму квадратов целых чисел от 1 до 100.

+4
Ответы (2)
  1. 13 января, 23:40
    0
    Var

    i, sum: longint;

    begin

    for i : = 1 to 100 do sum : = sum + sqr (i) ;

    write (sum) ;

    end.
  2. 14 января, 02:01
    0
    Var

    s, i, n:integer;

    begin

    i:=100;

    s:=0;

    For n : = 1 to i do

    begin

    s:=s+i*i;

    i:=i-1;

    end;

    writeln ('Сумма квадратов целых чисел от 1 до 100 равна ', s) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Цикл "Для". Написать программу 1) Найти сумму квадратов целых чисел от 1 до 100. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Напишите программы в Паскале: 1) цикл с предусловием. Написать программу, вычисления у=х2 при х=2, 4, 6, 8, 10; 2) цикл с постусловием.
Ответы (1)
1. Даны два целых числа A и B (A < B). Найти сумму всех чисел от A до B включительно. 2. Даны два целых числа A и B (A 0). Найти произведение всех чисел от A до B включительно. 3. Дан массив целых чисел Х. Найти сумму квадратов всех чисел. 4.
Ответы (1)
Составить программу вычисления суммы всех целых чисел от 0 до 100. 1 использовать цикл с предусловием. 2 использовать цикл с постусловием. 3 использовать цикл с параметром
Ответы (1)
Вычислить произведение четырех натур. чисел, используя только операцию сложения. (Язык пр:pascal) 1) Написать программу (обычную) 2) Написать программу с использованием процедуры 3) Написать программу с исп. функции 4) Написать программу с исп.
Ответы (1)
Составьте программу возведения в квадрат всех целых чисел от 0 до 50. 1) использовать цикл с предусловием. 2) использовать цикл с постусловием. 3) использовать цикл с параметром.
Ответы (2)