желательно сразу с расчётами Определите что будет напечатано в результате выполнения программы var n,s: integer;
begin
n:=0; s=:0;
while s <=365 do
begin
s:=s+18;
n:=n+6
end;
write(n)
end.

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

• 

  Kniga4001

  10.04.2020 01:53
  Складіть програму обчислення добутку суми двох чисел,введених з клавіатури, та...
• 

  kurotetsu666

  30.10.2022 23:46
  Пользователь работал с каталогом с: .сначала он поднялся на один уровень вверх...
• 

  fianketo05

  23.01.2021 01:01
  Могут ли существовать: а) два ящика с одинаковыми иминами на одном почтовом сервере,...
• 

  Nataliya49017

  27.08.2022 15:07
  Дана некоторая строка . из нее вторую строку по следующему алгоритму: 1. сначала...
• 

  Айлин1290

  16.10.2020 12:19
  Вбарабане для розыгрыша лотереи находится 8 шаров.сколько информации содержит...
• 

  Kotik77789

  11.08.2022 20:40
  Впаскале. составить программу удвоения меньшего из двух....
• 

  chiginavera

  13.07.2022 16:30
  Вычислите значение целочисленной переменной c при a=26 и b=6: а) b: =mod(a,b)+4...
• 

  Kamilla1351

  23.10.2020 11:14
  Какие важные открытия и изобретения были сделаны александрийскими учёными?...
• 

  sssfgdgd

  07.11.2020 18:56
  Нужно в массиве дано 5 целых чисел. напиши программу нахождения наибольшего среди...
• 

  podzolkova54

  08.06.2023 00:39
  Написать программу в pascal. задан двумерный массив c из 3-х строк и 5-и столбцов....