var a,b,x: real;
begin
writeln('Введите коэффициенты линейного уравнения ax=b');
readln(a,b);
if (a=0) and (b=0) then writeln('Решений бесконечно много')
else
if (a=0) and (b<>0) then writeln('Решений нет')
else
if a<>0 then
begin
x:=b/a;
writeln('Корень уравнения: ',x)
end
end.
1)механические весы
2)компьютеры на транзисторах компьютер 6600 фирмы CDC
Решение на<em> Pascal</em>:
var
a: integer;
begin
writeln('Введите число:');
readln(a);
if (a mod 5 = 0) then writeln('Число является кратным 5.') else writeln('Число не является кратным 5.')
<span>end.</span>
Линейка- чтобы измерять
транспортир-тот кто перевозит машины
термометр-чтобы измерять температуру
барометр-прибор который измеряет давление
компасы чтобы находить мтороны
телескоп чтобы наблюдать за звездами
микроскоп-чтобы смотреть на мелкие вещи
Только приветствие , ничего больше не несет