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

Трамвайный билет имеет шестизначный номер(от 100000 до 999999). выяснить, является ли билет "счастливым". билет назовем "счастливым", если первая и последняя цифра билета являются натуральными ( т.е. делятся на 1 и на само
себя ). решение с функций div + mod + циклы. буду .

👇
Ответ:
лав35
лав35
26.12.2021

program dl9_relay;

var i,a,t ,r,n,s,s2,h,h2 :integet; 

begin

writeln ('Vvedit # bileta');

readln (a);

t:=a div 100000;

r:=a mod 100000 mod 10000 mod 1000 mod 100 mod 10;  {барыжна строчка;)  }

n:=9; s:=0; s2:=0;

for i:=1 to n do begin       

h:=t mod i; if h=0 then s:=s+1;

h2:=r mod i;  if h2=0 then s2:=s2+1;

end;

if (h=2) and (h2=2) then writeln ('Bilet shasliviy');

else writeln ('Bilet obichniy tramvayniy=)');

readln

end. 

4,4(82 оценок)
Открыть все ответы
Ответ:
karinaletgo07
karinaletgo07
26.12.2021
1.
var
a: array [1..11] of integer;
i, min, imin: integer;
begin
for i:=1 to 10 do read(a[i]);
min:=32000;imin:=0;
for i:=1 to 10 do if (a[i] mod 2) = 0 then 
 if a[i]<min then begin min:=a[i]; imin:=i; end;
write('Минимальное:', min, ' Индекс:', imin);
end.

2.
function stepen(c, s: integer):integer;
var
j, rez: integer;
begin
rez:=c;
for j:=1 to (s-1) do rez:=rez*c;
stepen:=rez;
end;
var
a: array [1..11] of integer;
i, min, imin: integer;
begin
for i:=1 to 10 do a[i]:=stepen(2, i);
for i:=1 to 10 do write(a[i], ' ');
end.

Если возникли вопросы или ошибки в ходе работы программы, пиши в комментариях.
4,4(60 оценок)
Ответ:
pepper5566776
pepper5566776
26.12.2021
Uses
    System.Collections.Generic,
    System;

var
    simple: List<integer> := new List<integer>;
    i, n, p: integer;
    m: longint;

begin
    read(n);
    for i := 2 to n do
    begin
        m := 1;
        foreach s: integer in simple do
            m := m * i mod s;
        if m > 0 then begin
            simple.Add(i);
//            write(i, ' ');
        end;
    end;
    writeln();
   
    foreach s: integer in simple do
    begin
        if Math.Pow(2, s) - 1 <= longint.MaxValue then begin
            m := round(Math.Pow(2, s) - 1);
            if (m <= n) and simple.Contains(m) then
                write(m, ' ');
        end;
    end;
end.
4,8(79 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ