Определить значение переменной S после выполнения следующих команд:
var i,S: integer;
begin
i:=0;
S:=0;
while i<3 do
i:=i+1;
S:=S+i*i;
writeln(S);
end.

Популярно: Другие предметы

• 

  0Artemka0

  09.10.2020 14:17
  Освободить от знака модуль а) | √26-3√2| б) | 5√5 - √125| в) | √79-4√5|...
• 

  ushhahas02828

  19.06.2022 06:14
  Найти площадь равностороннего треугольника ,если сторон равны 4 см,а...
• 

  yanamalikova

  04.11.2020 11:42
  Сократите дроби: a+4k a^2+ 8 ka+ 16k^2 5k^2 + 5k k^2 - 1 27a^4 k^8...
• 

  BNN11

  15.07.2021 09:04
  Решить неравенство корень из 1-x^2 1...
• 

  rolik8

  22.10.2020 18:45
  Озаглавить текст и разделить на 3 части лесник виктор фёдорович шёл...
• 

  luda12349

  26.12.2020 09:21
  Выпишите крылатые фразы (афоризмы) из произведения д.и.фонвизина недоросль...
• 

  ulia108

  26.06.2021 13:48
  Выпеши названия материков и океанов которые пересикают меридеан 180...
• 

  LiveRiot

  20.09.2020 13:22
  1) смешали 200 г. 35%-го раствора и 400 г. 5%-го раствора гидроксида...
• 

  KriStiNaTim03

  05.02.2021 07:35
  Подчеркни верные равенства синим, а неверные-зеленым.14+e=e, x+x=o,...
• 

  Неизвестная66

  19.09.2021 19:43
  4. по выражению аль-фараби, человек - это животное, 1) расти2) смеяться3)...