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

Петя и Вася изучали микроэлектронику. Спустя некоторое время они утомились и решили поиграть в слова. Их задача состояла в том, чтобы составить максимально возможное количество комбинаций из 6-ти букв, входящих в слово "Микроэлектроника" так, чтобы все буквы в комбинации были различны и все комбинации отличались друг от друга хотя бы одной буквой. Петя выиграл эту игру, записав все возможные комбинации. Сколько у него их получилось?

Показать ответ
Ответ:
ElenaAlrman2707
ElenaAlrman2707
08.04.2022 08:17

 2)

var i:integer;
begin
writeln('Введите цифру означающюю день недели, например 2-вторник');
readln(i);
case i of
1:writeln('Понедельник: Алгебра,Геометрия,Русский,Физ-ра');
2:writeln('Вторник Информатика,История,Изо');
3:writeln('Среда,Английский,Искусство');
else writeln('ERROR');

readln;
end;

3)

var a:integer;
begin
writeln('Введите ваш возраст');
readln(a);
if (a<7) then writeln('Дошкольник') else
if (a>7) and (a<18) writeln('Ученик') else
if (a>18) and (a<60) writeln('Рабтник') else
if (a>65) writeln('Пенсионер');
readln;
end.

 

 

 

 

 

 

 

 

 

 


 

 

 

 

 

 

 

0,0(0 оценок)
Ответ:
daniilmosl
daniilmosl
08.04.2022 08:17
Pascal:
var n,m:longint;
      f:boolean;
begin
  write ('Decimal: ');
  readln(n);
  write ('Number: ');
  readln (m);
  f:=true;
  while (n<>0) do
  begin
    if ((n mod 10)=m) then
      begin
       f:=true;
       break;
      end;
    n:=n div 10;
  end;
  if f then writeln ('YES!') else writeln ('NO');
  readln;
end.

C++:
#include <iostream>
using namespace std;

int main()
{
  int n,m;
  bool f = false;
  cout <<"Decimal: ";
  cin >>n;
  cout <<"Number: ";
  cin >>m;
  while (n!=0)
  {
    if ((n%10)==m)
    {
      f = true;
      break;
    }
    n/=10;
  }
  if (f)
    cout <<"YES!" <<endl;
  else cout <<"NO!" <<endl;
  return 0;
}
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота