Т.к делить на 0 нельзя, можно вставить условие.
Условие записывается так:
If [условие] then [значение] else [иначе];
Если b=0 то выводим ошибку иначе идём дальше.
If b=0 then writeln('На 0 делить нельзя!') else begin Начало подпрограммы
c:=a/b; writeln('a/b=',c:0:2,' Верно!'); Весть текст обособливается в ковычки '. А переменные запятыми. 'a/b' это текст. ,c, это переменная.
end; конец подпрограммы. Это не конец всей программы, поэтому ставится не точка, а точка с запятой ;
program asd;
var a,b,c:real;
begin
writeln('Введите два числа');
readln(a,b);
If b=0 then writeln('На 0 делить нельзя!') else
begin
c:=a/b;
writeln('a/b=',c:0:2,' Верно!');
end;
readln;
end.
Я тож был на областной) 1 задачу на 100% решил первую из четырёх)
Это 106 место по области и 3 месо по городу. Ужас)
Там один задрот все задачи на 100% решил)
04 Дек 2010, 21:10
alex256
такое чувство, что каждый любитель компьютерных игрушек считает своим долгом поучаствовать в такой олимпиаде
Виктор
в чужой город на десять дней