program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.
не? я не уверен
я вот тоже вышел порешать =).
var p: array [1..1000] of record
slovo: string;
k: integer;
end;
n,i,j,max: integer;
c: char;
a: array [97..122] of integer;
begin
max: =0;
readln(n);
for i: =1 to n do
begin
p[i].slovo: ='';
repeat
read(c);
p[i].slovo: =p[i].slovo+c
until c=' ';
readln(p[i].k);
for j: =1 to length(p[i].slovo) do
if (ord(p[i].slovo[j])> =97) and (ord(p[i].slovo[j])< =122) then
a[ord(p[i].slovo[j])]: =a[ord(p[i].slovo[j])]+p[i].k;
end;
for j: =97 to 122 do
if a[j]> max then
max: =a[j];
write(max);
end.
Очевидно, что рано или поздно компьютеры, расположенные в разных точках земного шара, по мере увеличения своего количества должны были обрести некие средства общения. Такими средствами стали компьютерные сети. Сети бывают локальными и глобальными. Локальная сеть - это сеть, объединяющая компьютеры, географически расположенные на небольшом расстоянии друг от друга - например, в одном здании. Глобальные сети служат для соединения сетей и компьютеров, которых разделяют большие расстояния - в сотни и тысячи километров. Интернет относится к классу глобальных сетей подключение одного компьютера к другому - шаг, необходимый для создания сети, но не достаточный. Чтобы начать передавать информацию, нужно убедиться, что компьютеры "понимают" друг друга. Как же компьютеры "общаются" по сети? Чтобы обеспечить эту возможность, были разработаны специальные средства, получившие название "протоколы". Протокол - это совокупность правил, в соответствии с которыми происходит передача информации через сеть. Понятие протокола применимо не только к компьютерной индустрии. Даже те, кто никогда не имел дела с Интернетом, скорее всего работали в повседневной жизни с какими-либо устройствами, функционирование которых основано на использовании протоколов. Так, обычная телефонная сеть общего пользования тоже имеет свой протокол, который позволяет аппаратам, например, устанавливать факт снятия трубки на другом конце линии или распознавать сигнал о разъединении и даже номер звонящего. Исходя из этой естественной необходимости, миру компьютеров потребовался единый язык (то есть протокол), который был бы понятен каждому из них.
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Найдите ошибку(система паскаль) : даны два числа. вывести большее из них. program zadacha6; var a, b: real; begin readln(a, b); if a> b then writeln ( ' a bolshe ' ) else writeln ( ' a menshee ' ); end.
я бы сделал
program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.