Что не делал тупо постоянній повтор и нечево больше. паскаль . цикл while. обчислити сумму чисел от заданного числа до 150. число ввести с консоли. если введение число> 150, вивести сообщение об ошибках, если < 150, обчислити сумму, если = 150 - вивести 150
tat321
2
06.10.2019 12:40
1
Другие вопросы по теме Информатика
Максим111136322
26.08.2019 12:40
IceBand252
12.06.2019 08:40
Spez18
14.10.2019 20:49
IsabellaSwan2017
14.10.2019 20:49
Hamrod
12.03.2021 08:28
ученик1880
12.03.2021 08:29
vakfor
12.03.2021 08:30
DENCHIK23371
12.03.2021 08:30
Популярные вопросы
- Первый столяр сделал 7 скамеек,а второй -4 скамейки.при этом...
2 - Какое слово можно подобрать к слову карта...
3 - Нарисуйте плоскость а и лежащаю в ней точку м . запишите это...
2 - Решите уравнения 1)2.07x-0.4x+46=211 2) 0.9(283-x)=17.01...
1 - Записать алгоритм решения примера 2+2=4 ответ те нормально...
1 - Мне с музыкой. мне нужно сочинить частушку в конце : чтобы новых...
2 - These are the new words for you to learn...
1 - Вящике лежат зеленые и желтые груши.не глядя,из ящика достали...
1 - 5адекватных предложений из сказки где есть сущ ,прил ,глагол,сказуемое....
3 - Вбукете цветы 3 видов - розы,тюльпаны и гвоздики. все из них,кроме...
3
Program n_1;
var x, y, i:integer;
begin
readln(x);
if (x<=150) then begin
y:=0; i:=150;
while (i>=x) do begin y:=y+i; i:=i-1; end;
writeln (y);
end
else writeln ('Ошибка')
end.