М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Напиши программу которая выведет на экран имя несколько раз.

👇
Ответ:
ramn
ramn
02.10.2022

name = input('name: ')

repeat = int(input('repeat: '))

for i in range(repeat):

   print(name)

4,7(32 оценок)
Открыть все ответы
Ответ:
kornev183
kornev183
02.10.2022

abs(−16) = 16

sqr(b) = 256

sqr(b + b) = 1024

Объяснение:

program x1;  // Название программы

var  // Раздел для описания переменных

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

a - хранение первого введенного с клавиатуры числа;

b - хранение второго введенного с клавиатуры числа;

с - хранение максимального из них.

begin  // Начало программы

 a := -16;  // Присваиваем значение "-16" в переменную а

 b := abs(a);  // Присваиваем модуль числа а в переменную b

 writeln('abs(−16)=', b);  // Выводим в консоль

 c := sqr(b);   // Присваиваем квадрат числа b в переменную c

 writeln('sqr(b)=', c);  // Выводим в консоль

 c := sqr(b + b);  // Присваиваем квадрат числа b + b в переменную c

 writeln('sqr(b+b)=', c);  // Выводим в консоль

end. // Конец программы

4,7(100 оценок)
Ответ:
kiraн1999
kiraн1999
02.10.2022
1. Современный вариант (коротко, быстро и наглядно, кто знает). Так уже начали учить в некоторых школах.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ArrRandom(ReadInteger('n='),1,300).Println.
      Where(k->(k>=100) and ((k mod 100) div 10=0));
  if s.Count>0 then Writeln(s.Max) else Writeln('Нет элементов')
end.

Пример
n= 15
76 283 171 140 113 65 185 35 202 42 93 51 205 76 138
205

2. А так по-прежнему учат в большинстве школ. Стиль "80-х годов века". Долго, длинно, можно наделать ошибок, но по-другому эти учителя сами не могут.

const
  nn=100;
var
  i,n,max:integer;
  a:array[1..nn] of integer;
begin
  Write('n=');
  Read(n);
  Randomize;
  max:=0;
  for i:=1 to n do begin
    a[i]:=Random(300)+1;
    Write(a[i],' ');
    if (a[i]>=100) and ((a[i] mod 100) div 10=0) then
      if a[i]>max then max:=a[i]
    end;
  Writeln;
  if max>0 then Writeln(max)
  else Writeln('Нет элементов')
end.

Пример
n=15
219 68 131 115 104 169 80 288 143 108 124 214 50 101 1
108
4,8(99 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ