• Помогите пожалуйста с задачами по информатике в паскале!!
    1. Ввести целое число a и вывести сумму квадратов всех чисел от 1 до a с шагом 0.1.
    Пример:
    Введите последнее число:
    3
    Сумма 91.7
    2. Ввести натуральное число A и вывести числа от A до 1 (через одно) в порядке убывания.
    Пример:
    Введите натуральное число:
    8
    Ответ: 8 6 4 2

Ответы 1

  • 1.var a,i:integer; s:real;beginwriteln('Введите последнее число:');readln(a);s:=0;for i:=0 to round((a-1)/0.1) do s:=s+(1+i*0.1)*(1+i*0.1);writeln('Сумма = ',s:4:1);end.Пример:Введите последнее число:3Сумма = 91.72.var a,i:integer;beginwriteln('Введите натуральное число:');readln(a);write('Ответ: ');while a>=1 do begin write(a,' '); a:=a-2; end;writeln;end.Пример:Введите натуральное число:8Ответ: 8 6 4 2
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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