Var S:real; N:integer; Begin //Первый S:=0; For N:= 1 to 50 do S:=S+1/N; WriteLn('S = ',S);
//Второй S:=0; N:=0; Repeat N:=N+1; S:=S+1/N; Until N = 50; WriteLn('S = ',S);
//Третий S:=0; N:=0; While N<>50 do Begin N:=N+1; S:=S+1/N; End; WriteLn('S = ',S);
End.
Var X:real; Begin X:=-3; Repeat WriteLn(X:4:1,' ',((3*X*X-2)/4):6:3); X:=X+0.2; Until X>3; End.
Var A:real; i,k:integer; Begin k:=0; WriteLn('Введите 10 чисел'); For i:= 1 to 10 do Begin Read(A); if A<0 then k:=k+1; End; WriteLn('Кол-во отрицательных: ',k); End.
Функция isSevenHere возвращает истину, если в числе есть семерка, и ложь - если ее нет. В цикле for перебираем все значения от 1 до K (число, введенное с клавиатуры), и выводим на экран только те, где есть семерка.
Код программы:
function isSevenHere(number : integer) : boolean;var digit : integer;begin Result := true; while (number > 0) do begin digit := number mod 10; if (digit = 7) then exit; number := number div 10; end; Result := false;end; var i,k :integer;begin write('Введите k: '); readln(k); for i := 1 to k do if (isSevenHere(i) = true) then write(i,' ');end.
S:real;
N:integer;
Begin
//Первый
S:=0;
For N:= 1 to 50 do
S:=S+1/N;
WriteLn('S = ',S);
//Второй
S:=0;
N:=0;
Repeat
N:=N+1;
S:=S+1/N;
Until N = 50;
WriteLn('S = ',S);
//Третий
S:=0;
N:=0;
While N<>50 do
Begin
N:=N+1;
S:=S+1/N;
End;
WriteLn('S = ',S);
End.
Var
X:real;
Begin
X:=-3;
Repeat
WriteLn(X:4:1,' ',((3*X*X-2)/4):6:3);
X:=X+0.2;
Until X>3;
End.
Var
A:real;
i,k:integer;
Begin
k:=0;
WriteLn('Введите 10 чисел');
For i:= 1 to 10 do
Begin
Read(A);
if A<0 then k:=k+1;
End;
WriteLn('Кол-во отрицательных: ',k);
End.