Oпределите значение переменной b после выполнения следующего фрагмента алгоритма: a = 3 b=a*a-2 a=b+a Определите значение переменной c после выполнения следующего фрагмента алгоритма: a=4 b=5 a=b-a*2 If 2*a>=b then c=a+b else c=a-b Определите значение переменной s после выполнения следующего фрагмента алгоритма: S=10 k=10 While k>=0 do S= s+5 k=k-2 Writeln (s) Определите значение переменной m после выполнения следующего фрагмента алгоритма: m=0 for k=10 to 20 do If (k mod 3=1) then m=m+1 writeln(m)

print('Это действие будет повторяться 10 раз!')

print('Это действие будет повторяться 10 раз!')

print('Это действие будет повторяться 10 раз!')  

print('Это действие будет повторяться 10 раз!')

print('Это действие будет повторяться 10 раз!')

print('Это действие будет повторяться 10 раз!')

print('Это действие будет повторяться 10 раз!')

print('Это действие будет повторяться 10 раз!')

print('Это действие будет повторяться 10 раз!')

print('Это действие будет повторяться 10 раз!')

Объяснение:

Команда print отвечает за вывод текста, итого текст будет выводиться 10 раз

Program asd;

uses crt;

var a,b,c,max:integer; r:real;

begin

 Write('Введите число A: '); 

Readln(a);

 Write('Введите число B: '); 

Readln(b); 

Write('Введите число C: '); 

Readln(c); 

If  a>=b then max:=a

 else 

 max:=b;   

 If c>max then

max:=c; 

r:=a+b+c;

 If (A>B) and (B>C) and (C>0) then

 Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);

 If (A<0) and  (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A)  then

 begin   

A:=max;   

 B:=max; 

 C:=max; 

Writeln('A= ',a,' B= ',b,' C= ',c); 

  end   

else   

 Writeln('Symma: ',r);

end

Объяснение:

Program asd;

uses crt;

var a,b,c,max:integer; r:real;

begin

 Write('Введите число A: '); 

Readln(a);

 Write('Введите число B: '); 

Readln(b); 

Write('Введите число C: '); 

Readln(c); 

If  a>=b then max:=a

 else 

 max:=b;   

 If c>max then

max:=c; 

r:=a+b+c;

 If (A>B) and (B>C) and (C>0) then

 Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);

 If (A<0) and  (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A)  then

 begin   

A:=max;   

 B:=max; 

 C:=max; 

Writeln('A= ',a,' B= ',b,' C= ',c); 

  end   

else   

 Writeln('Symma: ',r);

end