Программирование 11 класс
10-11 класс
|
2
uses crt;
var a,b,x: real;
begin
writeln('Введите число а');
readln(a);
writeln('Введите число b');
readln(b);
if a=0 then writeln('Решений нет') else
begin
x:=-(b/a);
writeln(x);
end;
end.
2 желательно
uses crt;
var a,b,x: real;
begin
writeln('Введите число а');
readln(a);
writeln('Введите число b');
readln(b);
if a=0 then writeln('Решений нет') else
begin
x:=-(b/a);
writeln(x);
end;
end.
Другие вопросы из категории
вартість. Гравець сам визначає, які картки виграшні, але за правилами виграшних карток повинно бути стільки ж, скільки програшних. Яку максимальну суму можна виграти?
2. Сколько килобайтов составит сообщение из 384 символов 16-ти символьного алфавита?
а) магазин по продаже компьютеров
б)программное изделие в виде, поставляемом изготовителем
в)устройство обработки информации
г)программа для обслуживания переферийного устройства
Читайте также
А.А. с198
program pr;
uses crt;
var f:file of integer;
n:integer;
a:string;
begin
clrscr;
a:='c:\f1.txt';
assign(f,a);
rewrite(f);
writeln('n: ');
readln(n);
write(f,n);
close (f);
readln;
end.
после выполнения программы в файле f1.txt вместо значения n=5 появилось -256
что не так ?