Можно ли записать данную программу используя циклы while и repeat? если да то предложите свой вариант. - id299478420210629 от natka5031980 29.06.2021 21:24

Question

Информатика: Можно ли записать данную программу используя циклы while и repeat? если да то предложите свой вариант. program 5; uses crt; var i,n: integer ; x,y,s,p: real; begin x: =4.1; s: =0; p: =1; n: =10; for i: =1 to n do begin s: = s+ ln(sqr(x)+i); p: = p*(i+4*cos(x+i)); end; y: = s+p; writeln( = ,x: 5: 1, = ,y: 10: 2); writeln( = ,s: 5: 3, = ,p: 10: 2); end.

natka5031980 · Accepted Answer

Program Digit;
Var a, a1, a2, a3: Integer;
Label Start;
Begin
Start:
WriteLn('Введите трехзначное число');
ReadLn(a);
If (a < 100) Or (a > 999) Then
Begin
WriteLn('Вы ввели не трехзначное число');
Goto Start;
End;
a1 := a div 100;
a2 := (a - a1 * 100) div 10;
a3 := a - a1 * 100 - a2 * 10;
If a1 > a3 ThenWriteLn('Первая цифра больше последней')
Else
Writeln('Последняя цифра больше первой');
If a1 > a2 Then
WriteLn('Первая цифра больше второй')
Else
Writeln('Вторая цифра больше первой');
If a2 > a3 Then
WriteLn('Вторая цифра больше последней')
Else
Writeln('Последняя цифра больше второй');
ReadLn;
End.

MOGZ ответил