Program z6; Var a: array [1..10] of string; i,j,l:integer; s,g,s_2:string;Begin write('Введите строку - '); readln(s); l:=s.Length; i:= 1; j:= 1; while i <= l do begin while (s[i] <> ' ') and (i <= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i > l) then break; end; j:= j + 1; i:= i + 1; end; i:= 1; while (a[i] <> '') do begin g:=a[i]; g[1]:= (Upcase(g[1])); s_2:= s_2 + g + ' '; i:= i + 1; g:=''; end; writeln(s_2);End.
Uses crt;
var x:integer;
begin
for x:=10 to 20 do
writeln(x,' ',sqr(x));
<span>end.</span>
Ответ:
3
Объяснение:
потому чтл порядковый номер прЕ-3
Начало
ввод а, б, с
если а = б и б = с тогда треугольник равносторонний
иначе треугольник не равносторонний
конец