Регистрация
ayvazova2010
23.10.2021 23:31
Информатика
Есть ответ 👍

Найти: а) сумму всех целых чисел от 100 до 500; б) сумму всех целых чисел от a до 500 (значение a вводится с клавиатуры; a 500); в) сумму всех целых чисел от –10 до b (значение b вводится с клавиатуры; b –10); г) сумму всех целых чисел от a до b (значения a и b вводятся с клавиатуры; b a).

213
239
Посмотреть ответы 2

Ответы на вопрос:

Оксана0990
Оксана0990
4,5(31 оценок)
А) var a,sum,i: integer; begin sum: =0; for i: =100 to 500 do begin sum: =sum+i; end; writeln(sum); end. б) var a,sum,i: integer; begin sum: =0; writeln('введите число a'); readln(a); for i: =a to 500 do begin sum: =sum+i; end; writeln(sum); end. в) var b,sum,i: integer; begin sum: =0; writeln('введите число b'); readln(b); for i: =-10 to b do begin sum: =sum+i; end; writeln(sum); end. г) var a,b,sum,i: integer; begin sum: =0; writeln('введите число a'); readln(a); writeln('введите число b'); readln(b); for i: =a to b do begin sum: =sum+i; end; writeln(sum); end.
FireGame228
FireGame228
4,6(41 оценок)
Program mass1; var i,n: integer; mass: array[1..10] of integer; begin for i: =1 to 10 do begin mass[i]: =random(100); write(mass[i], ' '); end; writeln('элементов больше 20'); for i: =1 to 10 do begin if mass[i]> 20 then write(mass[i], ' '); end; writeln('элементов меньше 25'); for i: =1 to 10 do begin if mass[i]< 25 then write(mass[i], ' '); end; end.

Популярно: Информатика