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

Найдите сумму всех натуральных чисел меньше 7 pascal

👇
Ответ:
iiklyminecraft
iiklyminecraft
17.01.2021

Program zadacha1;

var  

s,n : integer;

begin

 writeln('Введите N');

 read(n);

 s:=0;

 while  (n<>0) do

 begin

   inc(s,n);

   dec(n);

 end;

 writeln('Сумма = ',s);

end.

Объяснение:

4,7(62 оценок)
Открыть все ответы
Ответ:
Houghin
Houghin
17.01.2021
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  м1, с1, м2, с2, м3, с3: ЦЕЛ;

УКАЗ
  Вывод.Цепь("Первый спортсмен: ");
  м1 := Приём.Число(); Вывод.Цепь(":"); с1 := Приём.Число();
  Вывод.Цепь("^Второй спортсмен: ");
  м2 := Приём.Число(); Вывод.Цепь(":"); с2 := Приём.Число();
  Вывод.Цепь("^Третий спортсмен: ");
  м3 := Приём.Число(); Вывод.Цепь(":"); с3 := Приём.Число();

  с1 := с1 + м1 * 60;
  с2 := с2 + м2 * 60;
  с3 := с3 + м3 * 60;

  ЕСЛИ с1 > с2 ТО
    ЕСЛИ с3 > с1 ТО
      Вывод.Цепь("^Третий.")
    АЕСЛИ с1 > с3 ТО
      Вывод.Цепь("^Первый.")
    ИНАЧЕ
      Вывод.Цепь("^Первый и третий.")
  АЕСЛИ с2 > с1 ТО
    ЕСЛИ с3 > с2 ТО
      Вывод.Цепь("^Третий.")
    АЕСЛИ с2 > с3 ТО
      Вывод.Цепь("^Второй.")
    ИНАЧЕ
      Вывод.Цепь("^Второй и третий.")
  ИНАЧЕ
    ЕСЛИ с3 > с1 ТО
      Вывод.Цепь("^Третий.")
    АЕСЛИ с3 < с1 ТО
      Вывод.Цепь("^Первый и второй.")
    ИНАЧЕ
      Вывод.Цепь("^Ничья.")
  КОН

КОН Задание.
Нужно решить . 75 + первому кто ответит лучший засчитаю. в компьютер поступают результаты соревнован
4,6(26 оценок)
Ответ:
ARTEMNET
ARTEMNET
17.01.2021
Введите смещение: 1
Делу время - потехе час | Еёмф гсёна - рпуёцё шбт
С Новым годом | Т Опгьн дпепн
Первое сентября | Рёсгпё тёоуавса

Исходный код на Python3:

#!/usr/bin/env python3
# -*- coding: utf-8 -*-

TL2I = dict(zip("",range(34)))
I2TL = dict(zip(range(34),""))
SL2I = dict(zip("",range(34)))
I2SL = dict(zip(range(34),""))

phrases = ('Делу время - потехе час', 'С Новым годом', 'Первое сентября')
key = int(input("Введите смещение: "))

for phrase in phrases:
    ciphered = ''
    for c in phrase:
        if not c.isalpha():
            ciphered += c
        if c.islower():
            ciphered += I2SL[ (SL2I[c] + key) % 33 ]
        if c.isupper():
            ciphered += I2TL[ (TL2I[c] + key) % 33 ]
    print("{} | {}".format(phrase, ciphered))
4,6(7 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ