Var d,n,i: integer; Begin n := 4; d:=n*2 For i := 1 to 3 do d := d + 2*i; Writeln(d); End. - №23930903

Var d,n,i: integer;

Begin

n := 4;

d:=n*2

For i := 1 to 3 do

d := d + 2*i;

Writeln(d);

End.
- Предмет:
  Информатика
- Автор:
  malachioq0k
- 5 лет назад

Ответы 0

Добавить свой ответ

Еще вопросы

провідміняти цифру 3452
- Предмет:
  Математика
- Автор:
  warren71
- 5 лет назад
- Ответов:
  
  1
- Смотреть
149×3 100×3+40×3+9×3 сравни болше или меньше
- Предмет:
  Математика
- Автор:
  augustokoto
- 5 лет назад
- Ответов:
  
  2
- Смотреть
Решите уравнение:
(m+9,11):(m-9,11)=4
- Предмет:
  Математика
- Автор:
  sansón
- 5 лет назад
- Ответов:
  
  0
- Смотреть
Выполните деление столбиком
1)28,8:1,8; 5) 4,928:0,16; 9) 1:0,025;
2)12,88:4,6;
6) 0,22274:0,43; 10) 7,488:3,12;
3)81:2,25; 7) 0,72:0,9:
11) 0,1218:0,058:
4) 9,6:0,04: 8) 0,014:0,56: 12) 6,1244:0,061
- Предмет:
  Математика
- Автор:
  scooby-doohooper
- 5 лет назад
- Ответов:
  
  1
- Смотреть

How much to ban the user?

1 hour 1 day 100 years