1. Информатика
  2. Решить до завтра: написать

Решить до завтра: написать программы и блок-схемы: 1). для различных вводимых с клавиатуры целых чисел, найдите сумму положительных чисел 2). дано положительное число а. найдите среди чисел 1, 1 + 1/2 + 1/3, первое, больше
а

Natasha1146 Natasha1146    2   08.03.2019 10:20    1

Ответы
Впрвиво199119 Впрвиво199119  24.05.2020 05:46

блок смемы не умею

 

var i:integer

s,n:real;

Begin

  repeat

    read(n);

    if n>0 then s:=s+n

  until n=0;

  writeln(s);

End.

 

var a,s:real;

i:integer;

Begin

  read(a);

  repeat

    i:=i+1;

    s:=s+1/i

  until s>a;

  writeln(i,s);

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Golinskaya2002a Golinskaya2002a  24.05.2019 13:30
Составить программу, которая выводит на экран в обратном порядке нечетные числа от 29 до 1 в pascal abc. составить программу,которая выводит на экран сумму нечетных чисел...
aliceBRATSKAIA aliceBRATSKAIA  24.05.2019 13:30
Ввести с клавиатуры массив из n вещественных чисел. найти разность максимального и минимального элементов. (составить программу pascal)...
vikammirkushaoz9agx vikammirkushaoz9agx  27.07.2019 07:30
Напишите программу которая спросит имя пользователя и класс в котором он учится а затем выдаст строку если введено число класса до 9 то написать ты ещё не знаешь паскаль...
fyjdtjjhtjh fyjdtjjhtjh  21.06.2019 10:50
Решит оч надо условная инструкция «шахматная доска» заданы две клетки шахматной доски. если они покрашены в один цвет, то выведите слово yes, а если в разные цвета — то...
kilala00 kilala00  08.04.2020 19:22
Где надо расположить предмет чтобы вогнутом зеркале получить увеличенное изображение ​...
sashamakarova30 sashamakarova30  08.04.2020 19:22
Сонатная форма. Анализ 1 части Сонаты 8, Бетховена...
vojnovv vojnovv  08.04.2020 19:22
Воздушный шар объемом 3 м3 заполнен водородом. 1.Чему равна архимедова сила, действующая на шар в воздухе? 2.Чему равна сила тяжести, действующая на шар вместе с оболочкой,...
arystan307 arystan307  08.04.2020 19:22
1 Чему будет равна сумма импульсов этих же тел после столкновения?​...
sevtour sevtour  08.04.2020 19:22
Легкие задания(не много заданий),...
568954 568954  08.04.2020 19:22
Задание. НЕ или НИ? Вставь частицы НЕ или НИ. Объясни употребление отрицательных частиц НЕ и НИ. 1. Пощады___жди. 2. Чтоговори, а люди таккричат. 3. Страшные вопли и бессвязные...

Популярные вопросы