#include <iostream>
int main()
{
int n;
std::cin >> n;
if (n % 3 == 0 || n % 5 == 0 || n % 8 == 0)
std::cout << "YES";
else
std::cout << "NO";
return 0;
}
Var a: array [1..99] of integer;
i, p, n: integer;
begin
p:=1;
readln(n);
for i:=1 to n do
begin
readln(a[i]);
p:=p*a[i];
end;
writeln('Произведение элементов массива = ', p);
<span>end.</span>
Program nau;
var s,m,t: real;
begin
writeln ('введите расстояние и среднюю скорость движения');
readln (s,m);
t:=(s/m)*60;
writeln('время, потраченное на дорогу, в минутах = ',t);
<span>end.</span>
Просто добавить условие, что делить на 0 нельзя.
Delphi/Lazarus
------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
a, b, c, d, x1, x2: real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
c := StrToFloat(Edit3.Text);
if a <> 0 then
begin
d := sqr(b) - 4 * a * c;
if (d > 0) then
begin
x1 := (-b+sqrt(d))/(2*a);
x2 := (-b-sqrt(d))/(2*a);
Label1.Caption := 'x1 = ' + FloatToStr(x1);
Label2.Caption := 'x2 = ' + FloatToStr(x2);
end
else
if d = 0 then
begin
x1:=-b /(2*a);
x2:=x1;
Label1.Caption := 'x1 = ' + FloatToStr(x1);
Label2.Caption := 'x2 = ' + FloatToStr(x2);
end
else
if d < 0 then
ShowMessage('Корней нет');
end
else
if (a = 0) and (b = 0) and (c = 0) then
ShowMessage('X = любое.')
else
if (a = 0) and (b = 0) then
ShowMessage('Решений нет.')
else
if (a = 0) then
begin
x1 := (-c)/b;
Label1.Caption := 'x = ' + FloatToStr(x1);
Label2.Caption := '';
end;
end;