В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Анелетта
Анелетта
19.12.2020 13:34 •  Информатика

Завдання 1 Розробити програму, яка виводить на екран монітора одним оператором Ваше прізвище, ім’я, по батькові, місце навчання та місце проживання, розбиваючи цю інформацію на три рядки.

Показать ответ
Ответ:
vika2007
vika2007
20.11.2022 17:24

Задача 1

var

 y, x: integer;// Объявляем переменные типа Integer

begin// Начало блока

 writeln('Введите X: '); //Выводим текст на экран

 read(x); //Читаем значение введеное с кливиатуры и записываем его в переменную

 y := 7 * x * 2 - 3 * x + 6; //Выолняем выражение

 writeln('Результат: ', y);// Выводим результат

end. // конец блока

Задача 2:

var

 a, b, c: integer;//Объявление переменных

begin

 write('Введите длину ребра куба '); //Вывод текста на экран

 read(a); //Читаем значение введеное с клавиатуры

 b := a * a * a; //Вычисляем объем куба

 c := 6 * sqr(a); //Sqr - квадрат числа

 {Далее опять же вывод результата}

 writeln('Объём куба равен ', b);

 writeln('Площадь боковой поверхности куба равна ', c);

end.

Задача 3

var

 k: integer;//Объявление переменных

begin

 write('Введите число: '); //Вывод текста на экран

 read(k); //Читаем значение введное с клавиатуры

 if Odd(k) then //Odd - возвращает True - если значение нечетно и False если четно

   writeln('Нечетное')

 else

   writeln('Четное');

end.

Задача 4:

var

 a, b: integer;

begin

 writeln('Введите a и b через пробел:');

 readln(a, b);

 if (b mod a = 0) then writeln('Число ', a, ' является делителем числа ', b)  

 else writeln('Число ', a, ' НЕ является делителем числа ', b);

end.

Задача 5:

var

 a, b: real;

begin

 writeln('Через пробел введите 2 числа: ');

 read(a, b);

 if a > b then //Условие если А больше Б

 begin

   a := a / 2; //Делим число А на 2 и выводим результат

   writeln('A:= ', a, ' B:= ', b);

 end

 else //Иначе оставляем все как и было

   writeln('A:= ', a, ' B:= ', b);

end.

0,0(0 оценок)
Ответ:
ворона1111
ворона1111
31.01.2022 00:15

--- Python 3.8.3 ---

#1 - file mdir.py

import os  

import sys  

import difflib

__all__ = ['CreateEmptyDir', 'RmDir']

__here__ = os.path.dirname(os.path.realpath(__file__))

#Функция, создающая папки

def CreateEmptyDir(count, path = __here__):

   try:

       for i in range(count):

           rpath = path + f'\\dir_{i}'

           os.mkdir(rpath)

   except OSError:

       print(f'Failed to create directory {path}')

#Функция, удаляющая папки

def RmDir(mask, path = __here__):

   try:

       for folder in os.listdir(path):

           s = difflib.SequenceMatcher(None, mask, folder)

           if s.ratio() > 0.8:

               f = path + '\\' + folder

               if os.path.isdir(f):

                   os.rmdir(f)

   except OSError as e:

       print(f'Failed to remove directory {f}\n{e}')

#Вызов функций из модуля

def main():

   CreateEmptyDir(10)

   next = input()

   RmDir('dir_')

if __name__ == "__main__":

   main()

#2 - file randchoise.py

import random  

__all__ = ['RandChoise']

def RandChoise(lst):

   if len(lst) == 0: return None  

   return random.choice(lst)

def main():

   data = [1,2,3,4]

   print(RandChoise(data))

if __name__ == "__main__":

   main()

#3 main.py

from mdir import *

from randchoise import *

import time

def main():

   CreateEmptyDir(10)

   time.sleep(3)  #Что бы успели прогрузиться созданные папки

   RmDir('dir_')

   print(RandChoise([1,2,3,4,5,6,7,8,9,2,1,32,31,2540]))

if __name__ == "__main__":

   main()

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота