Var
i, min, a, n: integer;
begin
min := trunc(power(2, 31) - 1);
readln(n);
for i := 1 to n do
begin
readln(a);
if (a < min) then
min := a;
end;
writeln(min);
end.
Диктор на ТБ не тільки голосом повідомляє новину, а й демонструє відповідний відеосюжет;
Друзі не тільки розповідають про захопливий відпочинок, а й показують фото або відео;
На уроці вчитель не тільки пояснює новий матеріал, а й демонструє плакати, малюнки тощо
Я тут решил попробовать вспомнить старое, но увы не получилось всё сделать правильно, вроде код ниже правильный, но где написано перед строкой "//" это я пометил, что не знаю как там писать. Попробуй сам изменить/дописать код:
program hello;
var
n, kd, d:integer;
begin
read(n);
kd:=0;
// d:=2...[sqrt(n)];
if n mod d = 0 then
kd:=kd+1
else
// d:=2...[sqrt(n)];
begin
if kd = 0 then
writeln('выв "простое"')
else
writeln('ыв "составное"')
end;
end.
Хранение, обработка, передача
Гипертекст - вступают текстовые только объекты - словосочетания или слова; гипермедиа - вступают графические, текстовые и звуковые объекты. Общего у них то что в обоих есть текстовые объекты. Разница между ними: в гипертекст только текстовые объекты, а гипермедиа и текстовые и звуковые, а также графические.