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

Программисты, нужна ваша Напишите программы на pascal. Умоляю. Хотя бы одну задачу

👇
Ответ:
muhkirill2017
muhkirill2017
25.09.2021

program podriad_idu_na_0;

var

n, x, k, k2:integer;

f:boolean;

begin

read(x);

f:=false;

repeat

if (f=false) and (x mod 10=0) then

begin

f:=true;

k:=k+1;

end

else

if (x mod 10=0) then

k:=k+1

else

begin

if k>k2 then

k2:=k;

k:=0;

f:=false;

end;

read(x);

until x=0;

write(k2);

readln;

end.

program proverka_na_ubivanie;

var

x,t:integer;

begin

read(x);

t:=x mod 10;

x:=x div 10;

while (x > 0) and ( t<x mod 10) do

x:=x div 10;

if x=0 then

write('Да')

else

write('Нет')

end.

program chisla_princip_piki_jami;

var

x,p:integer;

f:boolean;

begin

read(x);

f:=false;

if x>10 then

begin

if (x mod 10)>(x div 10 mod 10) then

p:=1

else

if (x mod 10)<(x div 10 mod 10) then

p:=0

else f:=true;

x:=x div 10;

while (x>10)and(f=false)

do

begin

if ((x mod 10)>(x div 10 mod 10) )and(p=0)then

p:=1

else

if ((x mod 10)<(x div 10 mod 10) )and(p=1)then

p:=0

else f:=true;

x:=x mod 10;

end;

if f=true then write('Нет')

else write('Да')

end

else

write('Слишком маленькое число')

end.

4,8(88 оценок)
Открыть все ответы
Ответ:
gabdrahmanovaafyun
gabdrahmanovaafyun
25.09.2021

Маршрут екскурсії являє собою найбільш зручний шлях проходження екскурсійної групи, що сприяє розкриттю теми. Він будується в залежності від найбільш правильної для даної екскурсії послідовності огляду об'єктів, наявності майданчиків для розташування групи, необхідності забезпечення безпеки екскурсантів. Одне із завдань маршруту-сприяти найбільш повному розкриттю теми.

Основні вимоги, які повинні бути враховані укладачами маршруту, - це організація показу об'єктів в логічній послідовності і забезпечення зорової основи для розкриття теми.

У практиці екскурсійних установ існують три варіанти побудови маршрутів: хронологічний, тематичний і тематико-хронологічний.

4,8(67 оценок)
Ответ:
Ulyana150806
Ulyana150806
25.09.2021

а)

def sum(x):

x_str = str(x)

first = x_str[0]

second = x_str[1]

third = x_str[2]

sum = int(first) + int(second) + int(third)

return sum % 2 == 0

б)

def triangle(a, b, c):

return a != b and b != c

Объяснение:

Написал две функции на Python. Первая принимает переменную x - по условию это трехзначное числ, так что я не стал прописывать код для проверки. Вторая функция ещё проще, просто сравнивает три переменных между собой. Первую функцию можно сильно сократить, если не переврдить отдельные цифры в переменные, а вставить их непосредственно в return. При отправке сюда смещение не сохранилось, расставить его не составит труда. Попробую добавить ссылку на пэйстбин, надеюсь не забанят https://pastebin.com/4qTF1jCm

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