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

1 Как загрузить Turbo Pascal? 2 Как завершить работу с Turbo Pascal?
3 Как выделить фрагмент программы?
4 Какие действия редактора предусмотрены для выделенного фрагмента?
5 Как сохранить текст программы на диске?
6 Как сохранить тот же текст программы с новым именем?
7 Как сохранить тот же текст программы на дискете?
8 Какие варианты просмотра результатов на экране предусмотрены в языке Turbo Pascal?
9 В чем назначение комментария?
10 Как запустить программу на решение?
11 Какие средства Turbo Pascal предназначены для отладки программ?
12 Объяснить назначение клавиш , , при работе в среде
Turbo Pascal.
13 Перечислить этапы решения задачи с ввода программы до просмотра результатов

Показать ответ
Ответ:
ziniakovarenatzinca
ziniakovarenatzinca
10.04.2022 05:10
Допустим цифра AB
A+B=3k k=1,2,3... кратность к 3
A=3B условие 2-ое

получаем 3B+B=3k
4B=3k отсюда вывод вторая цифра кратная к 3,
то есть 3,6,9

При B=6 и B=9 => цифра A получится двухзначним
значит B=3, A=9

ответ 93

int x=0;
for(int i=1;i<10;i++)
  for(int j=1;j<10;j++)
     if(i%3==0 && i==3*j)
        {x=i*10+j;
         cout<<x<<endl;
         }

можно оптимизировать

for(int i=1;i<4;i=i++)
 if(i%3==0)
  {x=i*31;
         cout<<x<<endl;
         }

1й перебирает 99 вариантов
2й 3 варианта

Или просто можно сделать
cout<<"93"<<endl;

)))
0,0(0 оценок)
Ответ:
lavika1
lavika1
26.03.2021 20:54
Var i,s,p,max:integer;
a:array[1..10] of integer;    // описание переменных
begin
s:=0;
p:=1;
max:=1;
 for i:=1 to 10 do        // Цикл в котором находится:
 begin
  a[i]:=random(100);  // генерация рандом чисел
  write(a[i]:5);            // вывод всего массива
  s:=s+a[i];                // нахождение суммы
  p:=p*a[i];                // нахождение произведения
 end;
for i:=1 to 10 do            // цикл для нахождения максимального в массиве
 if a[i]>max then max:=a[i];
writeln;
writeln('Summa: ',s);                 // Все что ниже вывод резельтатов.
writeln('Proizvedenie: ',p);
writeln('Maximalnoe: ',max);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота