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

Информационные технологии

Показать ответ
Ответ:
Амон11111
Амон11111
20.07.2022 14:24
1.
Begin
 Writeln('Привет!');
 Writeln('Меня зовут Саша!');
 Writeln('Я студентка 2-ого курса начального образования!');
 Writeln('Я будущий учитель младших классов...');
end.

2.
var n:Integer;
Begin
 Read(n);
 Writeln('Квадрат =',n*n);
end.

3.
var a:Integer;
Begin
 Read(a);
 Writeln('S = ',a*a);
 Writeln('P = ',4*a);
end.

4. var n:Integer;
   Begin
     Read(n);
     Writeln(n+10);
  end.

5. var a,b:Integer;
   Begin
     Read(a,b);
     Writeln(' S = ',a*b);
     Writeln(' P = ',2*(a+b));
   end.

6. var a,b,c:Integer;
   Begin
     Read(a,b,c);
     Writeln('Сума = ',a+b+c);
   end.
0,0(0 оценок)
Ответ:
ДжоннСина
ДжоннСина
25.07.2020 02:55
Program P1;
var
a: array [1..50] of integer; {Переменная а - одномерный массив в 50 элементов};
S, I : integer; {Переменная S - сумма элементов, I - счетчик цикла} 
begin
randomize; {включаем генератор случайных чисел};
S:=0;   {Обнуляем значение суммы}
for I:=1 to 50 do   {цикл в 50 повторений}
begin
a[i]:=random(201) - 100; {формируем 50 элементов массива случайным образом в интервале [-100;100]}
S:=S+a[i];   {Добавляем каждый элемент к значению суммы}
end;
wrilteln('Сумма всех элементов ', S); {выводим значение суммы}
end;
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота