Сравнить первое значение со вторым и одновременно с третьим значением. Сравнить второе значение с первым и с третьим значением. Сравнить третье значение со первым и со вторым. На Pascal это будет выглядеть так: if (a>b) and (a>c) then writeln (a); if (b>a) and (b>c) then writeln (b); if (c>a) and (c>b) then writeln (c); Данный кусок программы находит наибольшее из трёх значений.
Var i,j,n:integer; s,a,t:string; begin write('Введи текст: '); readln(s); n:=length(s); i:=n mod 7; if i>0 then begin i:=7-i; s:=s+copy('корвет',1,i); n:=n+i; end; for i:=1 to n do begin a:=a+s[i]; if i mod 7=0 then begin for j:= 7 downto 1 do t:=t+a[j]; a:=''; end end; writeln(t) end.
Можно использовать специальную функция переворота строки. Будет чуть короче var i,j,n:integer; s,a,t:string; begin write('Введи текст: '); readln(s); n:=length(s); i:=n mod 7; if i>0 then begin i:=7-i; s:=s+copy('корвет',1,i); n:=n+i; end; for i:=1 to n do begin a:=a+s[i]; if i mod 7=0 then begin t:=t+ReverseString(a); a:=''; end end; writeln(t) end.
Sub z() s = InputBox("Введи текст") n = Len(s) i = n Mod 7 If i > 0 Then i = 7 - i s = s & Mid("корвет", 1, i) n = n + i End If For i = 1 To n a = a + Mid(s, i, 1) If i Mod 7 = 0 Then t = t + StrReverse(a) a = "" End If Next i MsgBox (t) End Sub
begin writeln('Введите значение Х'); readln(X); Randomize; for i := 1 to n do a[i] := random(100) - 50; // случайные числа в интервале [-50..50] s := 0; for i := 1 to n do if (a[i]) < X then s := s + abs(a[i]); writeln('Исходный массив'); for i := 1 to n do write(a[i]:4); writeln; writeln('Искомая сумма:', s:3) end.
Сравнить второе значение с первым и с третьим значением.
Сравнить третье значение со первым и со вторым.
На Pascal это будет выглядеть так:
if (a>b) and (a>c) then writeln (a);
if (b>a) and (b>c) then writeln (b);
if (c>a) and (c>b) then writeln (c);
Данный кусок программы находит наибольшее из трёх значений.