Помогу с программированием и информатикой. Решение задач и контрольных. Помогу на экзамене. Pascal, C/C++, C#, PHP, Visual Basic, HTML, Javascript, jQuery, CSS, SQL, Java. Базы данных. Онлайн репетиторство по программированию. Excel, Access. Помощь в
Помогу с программированием и информатикой. Решение задач и контрольных. Помогу на экзамене. Pascal, C/C++, C#, PHP, Visual Basic, HTML, Javascript, jQuery, CSS, SQL, Java. Базы данных. Онлайн репетиторство по программированию. Excel, Access. Помощь в компьютерных вопросах.
Последний отзыв
Очень хороший парень, помог все сделать качественно и отвечал быстро :)
Консультацией доволен на отлично)
Что должна делать ваша программа? Ну, если смотреть по ошибкам, то:
не randon, а random;
пропущен апостроф в этой строчке if (i>z) and (b<z) then writeln('i=',i,'z=',z,',b=',b);
если условие выполнилось, то не нужно проверять все остальные, а иначе нужно проверить каждое следующее.
Исправленная программа:
program A;
var z, b, i:integer;
begin
randomize;
z:=random(16);
b:=random(16);
i:=random(16);
writeln('z=',z,' b=',b,' i=',i);
if (z>b) and (b>i) then writeln('z=',z,' b=',b,' i=',i)
else if (z>i) and (i>b) then writeln('z=',z,' i=',i,' b=',b)
else if (z<b) and (b<i) then writeln('i=',i,' b=',b,' z=',z)
else if (i>z) and (b<z) then writeln('i=',i,' z=',z,' b=',b)
else if (b>i) and (i>z) then writeln('b=',b,' i=',i,' z=',z)
else if (b<i) and (z>i) then writeln('z=',z,' i=',i,' b=',b);
readln(z,b,i);
end.
begin
write('Первое число: ');
readln(a);
write('Второе число: ');
readln(b);
if(a>b) then write(a, ' больше чем ', b)
else if (a=b) then write(a, ' равно ', b)
else write(b, ' больше чем ', a);
end.