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

Python Создать словарь из пар ключ-значение, где ключи - это буквы любой фамилии, а значения - это порядковый номер буквы в алфавите, от которого взят факториал.

Показать ответ
Ответ:
korol095
korol095
10.11.2020 00:59

ЗАДАНИЕ 1:

#include <iostream>

using namespace std;

void main()

{

   int number = 0;

   cout << "Введите число ->";

   cin >> number;

   if (number % 2 == 0)

   {

       number *= 3;

   }

   else

   {

       number /= 2;

   }

   cout << number << endl;

}


ЗАДАНИЕ 2:

#include <iostream>

#include <cctype>

using namespace std;

void main()

{

   char symbol = 0;

   cout << "Введите символ ->";

   cin >> symbol;

   if (isalpha(symbol))

   {

       cout << "Вы ввели букву" << endl;

   }

   else if (isdigit(symbol))

   {

       cout << "Вы ввели цифру" << endl;

   }

   else if (ispunct(symbol))

   {

       cout << "Вы ввели знак препинания" << endl;

   }

   else

   {

       cout << "Вы ввели не букву, не цифру и не знак препинания" << endl;

   }

}

0,0(0 оценок)
Ответ:
сергоо16
сергоо16
14.03.2021 23:13

program one;


type TIntMassiv = array of real;


var a,b,c,x,y: TIntMassiv; n,i:integer;


begin


writeln('Введите длину массивов(n)');


readln(n);


setLength(a,n); // Создаем динамические массивы длины n


setLength(b,n);


setLength(c,n);


setLength(x,n);


setLength(y,n);


for i := 0  to n-1 do  

 begin


  writeln('Введите ',i+1, ' массива a');


  readln(a[i]);  

  writeln('Введите ',i+1, ' массива b');


  readln(b[i]);  

  writeln('Введите ',i+1, ' массива c');


  readln(c[i]);


 end;


for i := 0 to n-1 do


 begin


  x[i] :=  MIN(a[i],b[i]) / 2;


  y[i] :=  MIN(a[i],c[i]) / 2;


 end;


for i := 0 to n-1 do


 begin


  writeln('x[',i,']=',x[i]);


  writeln('y[',i,']=',y[i]);


 end;


a := nil; //Освобождаем память


c := nil;


b := nil;


x := nil;


y := nil;


end.

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