1. Информатика
  2. Подсчитать сумму всех частных

Подсчитать сумму всех частных от деления на 3 чисел в интервале от 1 до 5 на pascal

drakula13055 drakula13055    3   11.10.2019 06:40    2

Ответы
Kaka2764 Kaka2764  10.10.2020 05:56

program Summa;

var

 i: Integer;

 s: Double;

begin

 s := 0;

 for i := 1 to 5 do begin

   s := s + i / 3;

 end;

 WriteLn ('Сумма = ', s :15 :10);

 ReadLn;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
полина2133 полина2133  16.08.2019 14:30
Что такое алгоритм? что такое исполнитель? что такое среда исполнителя? что называется командой? что такое формальный исполнитель? что такое неформальный исполнитель? назовите режимы...
Дарья0007 Дарья0007  16.08.2019 14:30
Смс,записанное буквами из 16 симв.алфавита,содержит 10 симв.какой объем в битах оно несет?...
vlad31106 vlad31106  11.09.2019 13:00
Подготовить решение в виде блок-схемы: дан одномерный массив а из 15-ти элементов. найти количество положительных элементов. ❤❤❤...
БПАНган БПАНган  11.09.2019 13:00
Автомат получает на вход три двухзначных числа. по этим числам строится новое число по следующим правилам. 1. вычисляются два числа – сумма старших разрядов заданных двухзначных...
ppp13 ppp13  11.09.2019 13:00
Акпараттык процестерды зерттейтын гылым?...
DianaBanana777 DianaBanana777  11.09.2019 13:00
Создать массив из 10 случайных чисел {-50; 100}. вывести. найти в массиве минимальный элемент. удалить его из массива. вывести полученный массив. предусмотреть вывод промежуточных...
Морти111 Морти111  11.09.2019 13:00
Как составить чайнворд из 4 сло и из 4 букв с вопросами...
laladisi laladisi  11.09.2019 13:00
Запишите значение переменной s и сколько раз выполнится цикл var s,k: integer; begin s: =0 k: =8 to 12 do s: =s+12; writeln(s); end....
Sasha190507 Sasha190507  10.03.2021 09:51
8/15Написание квадратного корня из и на языке программирования ​...
Rika2468 Rika2468  10.03.2021 09:51
вычыслите нужный обьем памяти, если изображение составляет 1300*1700 пикселей, а ндубина цвета 6 бита​...

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