13. <span>Вычисления делать разные. Бухгалтером будеш если, будеш его изучать. А функции помогут вычислить всякие налоги, зарплату и т. д.
</span>
const
n= 5;
var
i,j,max: integer;
a: array [1..5,1..5] of integer;
begin
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:= random(10);
write(a[i,j],' ')
end;
writeln
end;
max:= a[n,1];
for i:=1 to n do
if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln(max)
<span>end.</span>
Информационные ресурсы – материалы для изучения, которые преподаватель размещает в модулях дистанционного курса.
Информационные ресурсы – это теоретические материалы курса, представленные в виде файлов различных форматов. К ним относятся страницы , ссылки на файлы на каталоги или на архивы , а также аудио- и видеофайлы , анимационные ролики, ссылки на ресурсы Интернет и т.п.
Работать с ресурсами курса достаточно просто: их необходимо освоить в сроки, установленные преподавателем, – либо прочитать с экрана, либо сохранить их на свой локальный компьютер для дальнейшего ознакомления.
Ресурсы, представленные в виде ссылки на файл, можно распечатать.
1) 1 поколение: эвм представляет собой огромный шкаф
2 поколение: эвм выполнена в виде однотипных стоек
3 поколение: эвм выполнена в виде однотипных стоек
4 поколение: компактные эвм, например ноутбуки, персональные компьютеры
2) 1: десятки
2: тысячи
3: десятки тысяч
4: миллионы
3) 1: 10-20 тыс. операций в секунду
2: 100-1000 тыс. операций в секунду
3: 1-10 млн. операций в секунду
4: 10-100 млн. операций в секунду
4)1:2 кбайта
2:2-32 кбайта
3:64 кбайта
4:2-5 мбайт
5)1:МЭСМ, БЭСМ-2
2:БЭСМ-6, Минск-2
3:IBM-360, IBM-370, ЕС ЭВМ, СМ ЭВМ
4:IBM-PC, Apple
6)1:Перфокарта, перфолента
2:Магнитная лента
3:Диск
4:Гибкий и лазерный диски
Var
i, n, s: longint;
d, k: integer;
begin
i := 3; k := 0;
repeat
s := 1;
for d := 2 TO Trunc(sqrt(i)) do
begin
n := (i div d);
if n * d = i then s := s + d + (i div d);
end;
if int(sqrt(i)) = sqrt(i) then s := s - Trunc(sqrt(i));
if s = i then k := k + 1;
i := i + 1
until (k = 3);
Writeln('Третье совершенное число равно ',s)
end.
Тестовое решение:
Третье совершенное число равно 496
const
k=35; { k-е по порядку простое число }
var
i,j,n,m:integer;
begin
n:=1; i:=1;
repeat
j:=2;
m:=round(sqrt(i));
while (i mod j <>0) and (j<=m) do j:=j+1;
if j>m then n:=n+1;
i:=i+1
until (n=k);
Writeln(i-1)
end.
Тестовое решение:
137
var
n, d1, d2, d3: integer;
begin
Write('Введите трехзначное число ->');
Readln(n);
d1 := (n div 100);
d2 := ((n mod 100) div 10);
d3 := (n mod 10);
if (d1 * d2 * d3 in [100..999]) then
Writeln('Произведение цифр трехзначное')
else Writeln('Произведение цифр не трехзначное')
end.
Тестовое решение:
Введите трехзначное число ->518
Произведение цифр не трехзначное
*** В блок-схемах использованы обозначения:
sqrt(x) - квадратный корень от х;
\ - операция целочисленного деления
\% - операция остатка от целочисленного деления
