М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
MargoSimka
MargoSimka
08.04.2020 15:51 •  Информатика

Определите, что будет напечатано в результате выполне
фрагмента программы:
var k, i: integer;
...
k:=i;
s:=10;
for k:=10 to 11 do
s:=s+k;
write(s);
end.​

👇
Ответ:
maksgibert61
maksgibert61
08.04.2020

ответ: 31

Обратите внимание на объяснение!

Объяснение:

У вас была неверно написан фрагмент программы, ниже исправил на правильную версию

var i, s: integer;

begin

s:=10;

for i:=10 to 11 do

s:=s+i;

write(s);

end.

Шаги программы:

1. Первый раз в цикле i равняется 10, поэтому мы к 10 прибавляем 10, получаем 20. Второй раз в цикле i равняется 11, поэтому уже к новому s (20) мы прибавляем 11, получаем 31.

2. На экран выводится результат действий, а именно 31

Если вас интересует переменная k, то вы можете поменять i на k, но привычнее использовать i

4,4(51 оценок)
Открыть все ответы
Ответ:
зика356
зика356
08.04.2020

Полная.

"У школы №3 1 сентября в 10:00 будет проведена линейка"


Полезная.

Состав принимаемого лекарства.

Формулы по физике во время экзамена.


Актуальная.

Курс валюты.

Погода на улице, когда вы выходите из дома.


Достоверная.

"Россия выиграла у Испании на ЧМ за счет пенальти."

Данные, записанные в документах.


Точная.

"Земля - шарообразная"


Понятная.

"Завтра на улице вас встретит сильный дождь" (вместо - "Ожидаются 50 мм осадков за 12 ч." )


Объективная.

"Высота этой скалы 100 м." (вместо "Скала довольно высокая").

4,7(52 оценок)
Ответ:
vika2088
vika2088
08.04.2020
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  Writeln(s.Inverse)
end.

Пример
Я пишу программу на языке Паскаль
ьлаксаП екызя ан уммаргорп ушип Я

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите строку:');
  Write('Введите два символа СЛИТНО для сравнения их частоты: ');
  var ab:string;
  Readln(ab);
  var a:=ab[1];
  var b:=ab[2];
  var ka:=0;
  var kb:=0;
  for var i:=1 to s.Length do
    if s[i]=a then ka+=1
    else if s[i]=b then kb+=1;
  if ka>kb then Writeln('Символ ',a,' встречается чаще, чем ',b)
  else
    if ka<kb then Writeln('Символ ',a,' встречается реже, чем ',b)
    else
      if ka<>0 then Writeln('Символы ',a,' и ',b,' встречается одинаково')
      else Writeln('Символы ',a,' и ',b,' отсутствуют')
end.

Пример
Введите строку: а роза упала на лапу азора
Введите два символа СЛИТНО для сравнения их частоты: ао
Символ а встречается чаще, чем о
4,4(2 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ