• Хотя бы некоторые из них. Буду ооочень благодарен:

    1. Написать на Паскале программу для вычисления суммы всех натуральных чисел в интервале от 100 до 200
    2. Написать на Паскале программу для вычисления суммы: S=2+4+6+8+...+2*N, где N вводиться с клавиатуры
    3. Что будет выведено на экран в результате след. программы, если N было присвоено значение 4.
    Program prim;
    Var N,S,i enteger;
    Begin read(N); S:=0;
    For i:=1 to N do
    S:=S+2*I;
    Write(S)
    End

    5. Какие из слов могут быть идентификаторами в Паскале (может быть неск. ответов): 123prim, БАК_12, slon_1, begin
    6. Написать на Паскале программу для вычисления из трёх заданных целых чисел.
    7. Что будет выведено на экран после выполнения след. программы:
    Program my;
    Var a,b,c:integer;
    begin;
    a:=5;
    b:=a+10;
    if a+b>20 then c:1 else
    if b=15 then c:=2 else c:=3;
    write(c)
    end.

    ________________________________________________________

    Мне хотя бы некоторые из вышеперечисленных. Буду очень признателен Вам. Заранее спасибо.

Ответы 4

  • Спасибо за ответы) Вычисления меньшего числа. Прошу прощения
    • Автор:

      colehu0n
    • 6 лет назад
    • 0
  • readln (a); readln (b); readln (c); if (a < b) and (a < c) then l := a else if (b < a) and (b < c) then l := b else if (c < a) and (c < b) then l := c;
  • l - наименьшее
  • 1) sum = 0;for i:= 100 to 200 do sum:=sum+i;2)readln (N);sum:=0;for i:=1 to N do sum:=sum+i*2;3)205)slon_16)вычисления чего?7)2
    • Автор:

      bambisjfe
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years