//PASCAL
var
a:array[1..10] of integer;
i,min:integer; av:real;
begin
min:=1;
randomize;
for i:=1 to 10 do begin
a[i]:=random(-10,10);
av:=av+a[i];
if a[i] <= a[min] then min:=i;
end;
av := av / 10;
writeln('Среднее арифметические: ', av:0:1,#13#10,'Минимальное: ', min);
readln;
end.
<em>Відповідь:</em>
<em><u>Компьютеры и информационные системы прочно вошли в нашу жизнь и гораздо облегчили ее. Большинство людей, особенно молодежи не смогут представить свою жизнь без этой чудо машины. Еще совсем недавно, наличие компьютера в семье считалось роскошью. В настоящее время все настолько изменилось, что нет ничего удивительного, что в каждой ячейке общества присутствует несколько вычислительных устройств.
</u></em>
<em><u>Что может быть общего между профессией учителя и бухгалтера, адвоката и дизайнера, сотрудника полиции и кассира, врача и звукорежиссера? Изначально, кажется, что эти профессии не имеют ничего общего, так как речь идет о совершенно разных профессиях. Если вспомнить, что мы живем в век глобальной информатизации, то все эти профессии объединяет то, что они используют компьютер.
</u></em>
<em><u>Что же делает одно и то же устройство очень важным для выполнения столь большого количества разных работ? Таким вопросом мы задались и постараемся ответить на него в рамках нашего проекта.
</u></em>
<em><u>Объект исследования: профессии, использующие компьютер в своей деятельности. </u></em>
<em><u>Предмет исследования: для чего и как именно взрослые используют компьютер в своей профессии.
</u></em>
<em><u>Цель: Разработать и создать видео ролик «Компьютер и профессия». Выяснить, как именно компьютер помогает представителям различных профессий.</u></em>
<em><u>Пояснення:</u></em>
<u />
Корень раве аб или бс в квадрате.переменные описаны целым типом данных.
1)Cin>>a
2)a/=10
3)b=a\%10
4)c=2\%10
<span>5)cout<<(a/10+b+c)ит</span>
//PascalABC.NET
var
m : integer;
begin
// Зарезервируем массив [0..9] для подсчета повторов
var a := ArrFill(10, 0);
// Запрос пользователю ввести положительное число
repeat
m := ReadlnInteger('Введите 0 или положительное число ')
until m >= 0;
// Подсчет количества повторяющихся цифр
while m > 0 do begin
a[m mod 10] += 1;
m := m div 10
end;
// Найдем в массиве повторы от 2 и более раз?
if a.FindIndex(x -> x>=2) = -1 then
// Повторов не найдено. Вывод сообщения
writeln('Нет повторов.')
else begin
// Повторы есть.
write('Повторяются: ');
// Выведем повторяющиеся цифры
for var i := 0 to 9 do
if a[i] > 1 then write(i, ' ')
end
end.
var
x, y, z, max: integer;
begin
readln(x, y, z);
if x > y
then max := x
else max := y;
if z > max
then max := z;
writeln(max * max)
end.
