profile
Опубликовано 6 лет назад по предмету Информатика от arhideyalizka

Помогите, пожалуйста! Нужно сдать завтра.
Задания (циклы) на паскале
1.Даны
два целых числа A и B (A < B). Найти сумму всех целых чисел от A до B
включительно.


2.Даны
натуральные числа от 20 до 50. Напечатать те из них, которые делятся на 3, но
не делятся на 5.


3.Начав
тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал
дневную норму на 10% нормы предыдущего дня.

• Какой суммарный путь пробежит спортсмен за 7 дней?

• В какой день впервые спортсмен пробежит более 20 км?

• В какой день впервые суммарный путь превысит 60 км?

  1. Ответ
    Ответ дан garfild214
    1)

    Program pr;
    uses crt;

    Var i,sum:integer;

    Begin
    Writeln(Введите А);
    readln(a);
     Writeln(Введите B);
    readln(b); 
    sum:=0;
    for i:=a to b do
    Begin
    sum:=sum+i;
    end;
    Writeln('sum=',sum);
    readln;
    end.

    2)

    Program pr;
    uses crt;

    Var i:integer;

    Begin

    for i:=20 to 50 do
    Begin
    if (i mod 3=0) and (i mod 5<>0) then
    Writeln(i);
    end;

    readln;
    end.
Самые новые вопросы