var a,b,c:integer;
Begin
read(a,b,c);
if (a>b) then a:=a else a:=b;
if (a>c) then a:=a else a:=c;
writeln(a);
End.
Program sum;
var
Arr: array [1..10] of integer;
n,i: integer;
Sum: integer;
begin
{Заполнение массива и подсчёт суммы}
n:=10;
randomize;
Sum:=0;
for i:=1 to n do begin
Arr[i]:=random(100);
write(Arr[i],',');
if Arr[i] mod 5=0 then
Sum:=Sum+Arr[i];
end;
writeln;
writeln('сумма элементов кратных 5 равна ', Sum);
readln;
end.
Байт килобайт мегабайт и гигабайт
1 гигабайт=1024 мегабайт
1 мегабайт=1024 килобайт
1 килобайт=1024 байт
ну и для общего развития 1 байт=8бит
Вот код и результат выполнения программы на ЯП Python3.6.2
Фотошоп- редактирование фотографий
Опера- браузер
Скайп- общаться с человеком на расточении