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

Написать программу с трех циклов: даны два целых числа а и в (а

👇
Ответ:
juicedark6
juicedark6
16.05.2023

===== PascalABC.NET =====

begin

 var (a, b) := ReadInteger2('Введите a, b:');

 var p: real;

 // 1

 p := 1;

 for var i := a to b do

   p *= i;

 Println(p);

 // 2

 var j := a;

 p := 1;

 while j <= b do

 begin

   p *= j;

   j += 1

 end;

 Println(p);

 // 3

 var k := a;

 p := 1;

 repeat

   p *= k;

   k += 1

 until k > b;

 Println(p)

end.


Написать программу с трех циклов: даны два целых числа а и в (а
4,6(35 оценок)
Открыть все ответы
Ответ:
botan2008
botan2008
16.05.2023
Интернет в России появился в 1990 году, тогда же был зарегистрирован и домен su.
  Обычно историю зарождения русскоязычной части Интернета (Рунета) описывают следующими основными вехами: 22 августа 1990 года – научная сеть Института атомной энергии и ИПК Минавтопрома впервые подключилась к Интернету, поэтому этот день считается днем зарождения русского Интернета.19 сентября 1990 года – первый домен Советского Союза .su был зарегистрирован в международной базе данных.7 апреля 1994 года - первый домен Российской Федерации .ru был зарегистрирован в международной базе данных.
4,7(54 оценок)
Ответ:
ksdaga
ksdaga
16.05.2023
// альтернативный вариант
Uses GraphABC;
Begin
SetWindowSize(900,800);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
 line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
 lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
end.
4,4(28 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ