Var i,n,k:integer; begin Writeln('15 чисел, кратных 19:'); i:=100; while i mod 19<>0 do Inc(i); { первое, кратное 19 } Write(i,' '); k:=1; while k<15 do begin i:=i+19; Write(i,' '); Inc(k) end; Writeln end.
Задача 2. var m,V,rho,rmax:real; i:integer; begin Writeln('Максимальная плотность материала для 30 тел.'); Writeln('Вводите через пробел массу тела (кг) и объем (куб.см)'); rmax:=0; for i:=1 to 3 do begin Write(i:2,': '); Read(m,V); rho:=m/V; if rmax<rho then rmax:=rho end; Writeln('Максимальная плотность равна ',rmax:0:3) end.
1) в расстановке скобок здесь ошибка, в решении показан один из возможных вариантов исправления этой ошибки: F:=not((x<0) and (y<0)) or ((z<-2) and D) ⇒ not((-3<0) and (3<0)) or ((-5<-2) and false) ⇒ not(true and false) or (true and false) ⇒ not false or false ⇒ true or false ⇒ true
2) здесь тоже в условии что-то не то (z - лишняя переменная получается) и корень из чего извлекать - тоже непонятно var x,a,y:real; begin x:=3; a:=ln(abs(x+1))/ln(10); y:=exp(ln(5)*(1/3))*a*a-3*x*x; writeln('y = ',y); end. Результат: y = -26.3801743600581
Объяснение:
var
x,y:integer;
begin
x:= 10;
y:=2;
repeat
x:= x-2;
y:=y-2;
until x<=-2;
writeln(x, y);
end.