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

Укажите значения для переменных x и y после выполения операторов^x: =2; у: =5; х: =у; у: =х; 4. какую решает данная программа? program primer; var a,b,c: integer; beginwriteln("введите двухзначное число "); readln(a); b: =a div 10 ; c: =a mod 10; write(c*10+b); end.a)находит сумму цифр числа; б)вычесляет целую часть и остаток от деления числа на 10 ; в)меняет цифры числа местамиг)находит цифры числа, а на экран выводит само число 5. среди предложенных выражения выбирете логические : а) (x=3)or (x< > 4)б)2*x+5; в)x mod 2=0; г)x div 3д) x+у=10е) х+уж)(х+у> 5)or(x-у> 5)з)(х> 3)and (х< =10)6.вычислите: уa)(x*у< > 0)and(у> x),при х=2,у=1; б)(x*у< > 0)or(у> x),при х=2,у=1; в) t and (p mod 3=0), при t=true,p=42; г) f or (not( при f=false, b=true; 7. составьте условие для условного оператора в программе , которая выводит на экран в зависимости от времени суток . пусть утро с8 до 12 ч, день с12 до 17 ч , вечер с 17 до 23ч, ночь-всё остальное время.program primer; beginwriteln("который час? "); readln(x); writeln('доброе утро! '); writeln('добрый день! '); writeln('добрый вечер! '); writeln('доброй ночи! "); writeln('введите число выходит за рамки интервала [0,24]');

👇
Ответ:
samirjyad
samirjyad
28.12.2021
Ох нихерасе задают.
4,4(47 оценок)
Ответ:
savech11
savech11
28.12.2021
X=5, y=2
4.б
5.в,г,ж,з?
4,6(9 оценок)
Открыть все ответы
Ответ:
MaykTV26
MaykTV26
28.12.2021
1 вариант через строку

var 
  n,a,k,sum,i,j: integer; 
  s: string; 
begin
  sum:=0; 
  write ('Введите количество чисел: ');
  readln (n);
  for i:=1 to n do begin 
    write ('Введите число: ');
    readln (a);
    Str(a,s);
    k:=0;
    for j:=1 to length(s) do 
      if s[j]='5' then k:=k+1;
    if k=2 then sum:=sum+a;
  end;  
  writeln ('Sum = ',sum);
end.

2 вариант через div и mod

var 
  n,a,x,k,sum,i: integer; 
begin
  sum:=0; 
  write ('Введите количество чисел: ');
  readln (n);
  for i:=1 to n do begin 
    write ('Введите число: ');
    readln (a);
    x:=abs(a);
    k:=0;
    while x>0 do begin
      if x mod 10 =5 then k:=k+1;
      x:=x div 10;
    end;
    if k=2 then sum:=sum+a;
  end;  
  writeln ('Sum = ',sum);
end.

пример результата:

Введите количество чисел: 3
Введите число: 550001
Введите число: -550000
Введите число: 123456
Sum = 1
4,7(47 оценок)
Ответ:
Лина5678
Лина5678
28.12.2021
// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!

function NOK(a,b:integer):integer;
begin
  if a=b then Result:=a
  else begin
    var c:=a*b;
    repeat
      if a>b then a:=a-b else b:=b-a;   
    until a=b;
    Result:=c div a
  end
end;

begin
  var n:=ReadInteger('N=');
  var L:=new List<integer>;
  var m:=n;
  while m>0 do begin
    var d:=m mod 10;
    L.Add(d);
    m:=m div 10
    end;
  var a:=L.Where(x->x<>0).Distinct.ToArray;
  var k:=a[0];
  if a.Length>1 then
    for var i:=1 to a.Length-1 do k:=NOK(k,a[i]);
  Range(k,n,k).Println;
end.

Пример
N= 227
14 28 42 56 70 84 98 112 126 140 154 168 182 196 210 224

Как это работает?
Если число делится на каждое из нескольких чисел, то оно делится и на НОД этих чисел, Функция НОД позволяет найти НОД пары чисел, а её применение несколько раз позволит найти НОД для необходимого набора чисел.
Создаем объект типа "список целых" и цифра за цифрой помещаем туда числа, совпадающие с цифрами заданного числа n. Затем просматриваем список и все уникальные элементы, за исключением нуля, заносим в массив а. Далее вычисляем НОД для всех элементов полученного массива.
Понятно, что первым в последовательности искомых чисел будет стоять НОД, а далее пойдут числа, которые будут увеличиваться каждый раз на НОД, пока не достигнут n.
4,5(79 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ