Ответы на вопрос:
Var x,s: real; begin x: =2; while x< 3 do begin s: =s+x; x: =x+0.1 end; writeln (s); readln end.
Популярно: Информатика
-
То что размещается в интернете воспринимается как данность. а)относительная истина...
qwert05074907.07.2022 05:27 -
Сколько бит содержит слово информатика...
egorkorotenko03.03.2020 08:14 -
Вычислить площадь круга и длинну окружности если известен радиус...
darkhun16.09.2021 01:26 -
Задание #2 Вопрос: Яке призначення наведених функцій? Укажите соответствие для всех...
yulyapikulyk06.03.2022 07:18 -
Напишите программу, , на pascal. даны координаты нижнего левого угла квадрата на...
Nicktat22.05.2020 19:10 -
)1. почему в векторных графических редакторах можно изменять видимость объектов,образующих...
mmila476429.09.2021 12:31 -
У каждого автобусного билета есть свой номер – шестизначное число. Билет называется...
valikromanenkop074w001.01.2021 01:27 -
1. Напишите наибольшее целое число х, для которого истинно высказывание: НЕ (х +...
кошИчкаНЕКО16.12.2022 09:28 -
Задание 2. Решите задачу. Решение записать в тетрадь. Видеопамять компьютера имеет...
Анабель203212.07.2022 16:03 -
решить массивы В массиве Е(105) найти максимальное и минимальное значения элементов...
lvo2010w03.02.2021 06:28