ОЧЕНЬ Пример 1 Что будет напечатано в результате работы фрагмента программы?
8:=1; x:=4718 ; k:= x mod 10;
while x div 10 > 0 do begin
x := x div 10;
:= s + 1
end;
if s = 2 then
x := x + k
else
x := x*10 + k
writeln(x);
ответ: :​

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

• 

  Trdfgg

  10.08.2022 06:32
  30 .составить блок-схему : определить среднее арифметическое последовательности...
• 

  Mila1515

  24.03.2020 22:08
  Найти сумму элементов массива состоящих из 3 элементов (год,месяц,число) на экран...
• 

  vladimirnishta1

  02.05.2021 08:44
  Pascal abc значения функции f(x)=0,348+cox(x/4) определены при x=x0(hx)xn определить,...
• 

  sasha1916

  06.09.2022 22:57
  Спрогой на паскале ввести последовательность случайным образом n=12. упорядочить...
• 

  юлия1764

  05.12.2022 14:00
  Написать программу которая по номеру дня недели выдаст название дня и количество...
• 

  sasa26597

  28.05.2023 07:06
  Дана целочисленная квадратная матрица найти сумму элементов, стоящих выше главной...
• 

  Egorjava

  13.05.2021 09:10
  Как протоколы используются в маршрутизации...
• 

  kirillkosyarev

  25.08.2020 04:39
  № 2. Тестирование по теме «Хранение информации» 1. Этот носитель информации изготавливается...
• 

  ingad1986

  09.06.2022 23:56
  выполнить чертеж детали в двух проекциях и построить фронтальную диметрию ( 3Д)...
• 

  mikki255

  09.02.2020 09:09
  Задание: спишите, вставляя пропущенные буквы и знаки препинания, подчеркните грамматическую...