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

До какого числа должно измениться значение в i, в фрагменте программы,чтобы А стало равным 120?
A:=1
for i=2 to do
A:=A*i​

👇
Открыть все ответы
Ответ:
msvladimirovnalena
msvladimirovnalena
22.05.2020
А)Начало -> 
 Ввод массива -> 
 Ввод X -> 
 Ввод Y ->
 Если X>Y
 ->no->End
 ->yes->
 p=0 ->
 ∨-> если элемент массива (p) > X, элемент массива (p) = X ->
  если элемент массива (p) < Y, элемент массива (p) = Y ->
  p = p + 1 -> если p больше размера массива
      если нет -> Возврат на ∨
      если да -> Вывод массива -> Конец

б)Начало -> 
 Ввод массива -> 
 p=0 ->
 ∨-> если элемент массива (p) %(остаток от деления на) 3=0
->yes->
->no-> элемент массива (p) =элемент массива (p)%3
->p=p+1
->если p больше размера массива
      если нет -> Возврат на ∨
      если да -> Вывод массива -> Конец
      
4,6(9 оценок)
Ответ:
Lounges
Lounges
22.05.2020
ПаскальАВС.нет

var
  f:text;
  s,t:string;
  i,n:integer;
  y:boolean;  //признак наличия слова NO  

function wr(c:char):boolean; //определяет, буква или нет
begin
if (c in ['A'..'Z']) or (c in ['a'..'z']) then result:=true else result:=false
end;

begin
assign(f,'d:/file.txt');
reset(f);
repeat
  readln(f,t);
  s:=t;
  y:=false;
  i:=pos('NO',s);
  while i>0 do
    begin
    n:=length(s);
    if n=2 then
       y:=true
       else
          begin
          if i=1 then
             begin
             if wr(s[i+2])=false then y:=true;
             end
             else
                 if wr(s[i-1])=false then y:=true;
          end;
    delete(s,1,i+2);
    i:=pos('NO',s);
    end; 
  if y=false then writeln(t);
  until f.Eof;
close(f)
end.  
4,5(89 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ