1. Информатика
  2. Составьте программу, находящую

Составьте программу, находящую сумму первых 10 натуральных нечетных чисел.

ninja2005xxx ninja2005xxx    2   26.05.2020 15:37    2

Ответы
bayawb65 bayawb65  15.10.2020 09:28

1

2

3

4

5

6

7

8

9

10

11

12

program 1;

uses crt;

var i,n,sum:integer;

Begin clrscr;

writeln("Enter n");

readln(n)

sum:=0;

for i:=1 to n do

sum:=sum+1;

writeln("result=",sum);

readln;

End.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
alex13536 alex13536  15.07.2019 09:20
Запишите число, месяц и год своего рождения с римских цифр. пример: 1 августа 1989 года i viii mcmlxxxix запишите: 07.05.2001...
Katranov2016 Katranov2016  15.07.2019 09:20
Составьте программу вычисления стоимости поездки на автомобиле на дачу (туда и обратно). исходными данными являются: растояние до дачи (в км); количество бензина, которое потребляет...
Лино444ка Лино444ка  25.11.2021 10:47
начиная с 5 и по 10 1 вариант через 1час здавать...
sychev66 sychev66  07.07.2019 04:00
Вводиться n чисел , определить сумму чисел кратных 5 и 10 , а так же их количество...
veronikarub veronikarub  05.07.2019 03:10
Сообщение о видах персональных компьютерах и их использование...
MAXIMUS111111111 MAXIMUS111111111  05.07.2019 03:10
Какая память размещена на материнской плате? во время исполнения програма хранится для долговременного хранения информации служит...
Juliaghkfhcuf Juliaghkfhcuf  11.07.2019 08:40
Содного омпьютора на другой со скоростью 100мегабайт в секунду передавался файл в течении 3 секунд. какой размер этого файла в мегабайтах?...
770glym 770glym  13.07.2019 16:10
Выполняется в абс паскаль найти количество максимальных и минимальных элементов в одномерном массиве и заменить их,их суммой....
valoparina valoparina  13.07.2019 16:10
Var s, n: integer; begin s : = 42; n : = 1; while s 0 do begin s : = s – 5; n : = n + 3 end; writeln(n) end решить по !...
angrelygovo201 angrelygovo201  13.01.2021 14:00
Подати у вигляді многочлена (-3n-4k)²​...

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