Вводится строка, состоящая из трёх слов. слова отделяются друг от друга ровно одним пробелом, в начале и конце строки пробела нет. поменять местами 1 и 2 слова. описать функцию: function zamena(s: string): string

225

230

Посмотреть ответы 2

Ответы на вопрос:

alenushka73

Информатика

4,7(1 оценок)

Program p1; uses crt; var s1,s2,s3: string; a: integer; begin read(s1); a: = pos(' ',s1); s2: =copy(s1,1,a-1); delete(s1,1,a); s3: =s1+' ' +s2; write(s3); end. проверь так ?

llVorobeyll

Информатика

4,6(27 оценок)

Const n = 10; var i, s: integer; a: array[1..n] of integer; begin write('введите оценки через пробел '); s : = 0; for i : = 1 to n do begin read(a[i]); s : = s + a[i] end; writeln('средний равен ', s / 10: 0: 2) end. тестовое решение: введите оценки через пробел 4 5 3 4 4 5 3 5 5 4 средний равен 4.20 var k, n: longint; i, m, s: integer; begin write('введите натуральное число '); readln(n); m : = n mod 100000; k : = 10000; for i : = 1 to 4 do begin s : = s + (m div k); m: =m mod k; k : = k div 10 end; s: =s+m; writeln('сумма последних пяти цифр числа равна ', s) end. тестовое решение: введите натуральное число 123456789 сумма последних пяти цифр числа равна 35