1. напишите процедуру, которая выводит на экран фразу «я люблю паскаль» заданное в ее параметре количество раз. 2. напишите процедуру, которая выводит на экран решение линейного уравнения ax + b = 0. параметры а и b являются параметрами процедуры.

212

423

Посмотреть ответы 2

Ответы на вопрос:

zhludovaanasta

Информатика

4,8(89 оценок)

// pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! procedure love(n: integer); begin writeln(n*('я люблю паскаль'+newline)) end; begin love(readinteger('n=')) end. пример n= 5 я люблю паскаль я люблю паскаль я люблю паскаль я люблю паскаль я люблю паскаль // pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! procedure linequ(a,b: real); begin if a=0 then if b=0 then writeln('решений бесконечно много') else writeln('решений нет') else writeln('x=',-b/a) end; begin var a,b: real; write('введите а и b: '); read(a,b); linequ(a,b) end. пример введите а и b: 18.45 -12 x=0.650406504065041