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

Перевести в любую другую число 89 до 16
вот так до 16 только с числом 89

Показать ответ
Ответ:
loloshovich83
loloshovich83
28.09.2022 06:26

using System.Threading.Tasks;

namespace trapec

{

   class Program

   {

       static void Main(string[] args)

       {

           Console.WriteLine("[Введите символ, из которого будете рисовать трапецию]");

           string c = Console.ReadLine();

           Console.WriteLine(" " + c + " " + c + " " + c + " " + c + "");

           Console.WriteLine(" " + c + " " + c + " " + c + " " + c + " " + c + " " + c + " ");

           Console.WriteLine(" " + c + " " + c + " " + c + " " + c + " " + c + " " + c + " " + c + " " + c + " ");

           Console.WriteLine("[Поздравляем, вы нарисовали самую идеальную трапецию во вселенной]");

       }

   }

}  

0,0(0 оценок)
Ответ:
tyt9997
tyt9997
17.03.2020 13:24

1) 

var a:array [1..100] of integer;

n,i:integer;

begin

for i:=10 to 99 do begin

a[i]:=i;

if (a[i] mod n=0) then writeln(a[i]);

end;

end.

 

 2)

var a:array [1..100] of integer;

n,k,i,x,y,z: integer;

begin

readln(n,k);

for i:=n to k do begin

a[i]:=i;

x:=a[i] mod 10;

y:=a[i] div 10;

z:=y mod 10;

y:=y div 10;

if (x=y) or (x=z) or (y=z) then writeln(a[i]);

end;

end.

 

 3)

 var a,n,an,na: integer;

begin

readln(a,n);

if (a>0) and (b>0) then begin

an:=a*10+n;

na:=n*10+a else writeln('Введены неверные числа!');

end;

end.

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