1. program 1; (неправильное имя программы), нет присваивания значения d, read(S=, S); (оператор ввода вместо оператора вывода, нет кавычек при текстовом выводе)
2. program 2; (неправильное имя программы), нет присваивания значения r, read("L=", L); (оператор ввода вместо оператора вывода)
4. r = 2; (нет : в операторе присваивания)
Спасибо
Ответ дал: Гость
Var a: integer; begin read(a); while(a < > 0) do begin write(a mod 10); a : = a div 10; end; end.
Ответ дал: Гость
1)
var
a,b,c: real;
begin
readln(a,b);
c: =180-a-b;
if (a> 90) or (b> 90) or (c> 90) then writeln('тупоугольный')
else
if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')
else writeln('остроугольный');
end.
2)
var
v: real;
begin
readln(v);
if v< 7.8 then writeln ('ракета упадет на землю');
if v=7.8 then writeln ('ракета станет спутником земли');
if (v> 7.8) and (v< =16.4) then writeln ('ракета останется в пределах солнечной системы'); if (v> 16.4) then writeln ('ракета покинет пределы солнечной системы');
Популярные вопросы