Информатика

1. Вычислить сумму однозначных чисел.

2. Составить алгоритм, вычисляющий сумму двухзначных чисел от 20 до 45 включительно.

Question

Информатика

Ленуша

26 сентября, 22:52

Информатика

1. Вычислить сумму однозначных чисел.

2. Составить алгоритм, вычисляющий сумму двухзначных чисел от 20 до 45 включительно.

+5

Ответы (1)

Знаете ответ?

Рима · Answer 1

Var A, S:integer;

Begin

S:=0;

For A: = 1 to 9 do

S:=S+A;

Write ('S = ', S) ;

End.

Var A, S:integer;

Begin

S:=0;

For A: = 20 to 45 do

S:=S+A;

Write ('S = ', S) ;

End.

Информатика1. Вычислить сумму однозначных чисел.2. Составить алгоритм, вычисляющий сумму двухзначных чисел от 20 до 45 включительно.

Информатика

1. Вычислить сумму однозначных чисел.

2. Составить алгоритм, вычисляющий сумму двухзначных чисел от 20 до 45 включительно.