program zadacha;
uses crt;
var a,b,c: integer;
begin
writeln('Введите 3 числа');
readln(a,b,c);
writeln(sqrt(a*a*a+b*b*b+c*c*c));
readln;
end.
var a,b,n:real;
begin
writeln('vvedite chislo');
readln(a);
b=1;
n=b;
while b<a do
begin
if (a mod b = 0) then n:=n*b;
b:=b+2;
end;
writeln('n = ',n);
readln;
end.
В Паскале запрещены операции, при которых возможна потеря части результата. Поэтому, в частности, запрещается присваивание целочисленной переменной вещественного значения.
На этом основании неверны операторы 2 и 3.
Это вроде <span>1)математическая формализация задачи - </span>способ выражения содержания совокупности условий через опреленную форму - знаки искусственного языка.
2)отладка программы - это этап разработки на котором ищут и устаняют ошибки
3)тест - метод изучения процесов системы
Как то так
var a,b,c,d,e,f:integer;
begin
for a:=100 to 999 do begin
b:=a div 100;
c:=a mod 10;
d:=a mod 100;
e:=d div 10;
f:=c+b+e;
if (f mod 7=0) and (a mod 7=0) then
writeln(a,' ');
end;
end.