// PascalABC.Net
var vowel: set of char = ['а', 'у', 'о', 'ы', 'и', 'э', 'я', 'ю', 'ё', 'е'];
s, substr: string;
begin
s := 'кот в сапогах';
var words := s.Split(' ');
for var i := 0 to words.length - 1 do
begin
for var j := 1 to words[i].Length do
if words[i][j] in vowel then
begin
substr := Copy(words[i], 1, j-1);
Delete(words[i], 1, j-1);
words[i] += substr;
break;
end;
words[i] += 'циус';
end;
writeln(words.JoinIntoString(' '));
end.
объяснение:
робочою книгою; b. робочим аркушем; c. документом
14. принциповою відмінністю електронної таблиці від звичайної є:
a. можливість автоматичного перерахунку за формулами даних при зміні вихідних;
b. можливість обробки даних, структурованих у вигляді таблиці;
c. можливість наочного представлення зв'язків між опрацьовуваними даними;
d. можливість обробки даних, представлених у рядках різного типу.
15. вираз 3(а1+в1): 5(2в1-3а2), записаний у відповідності до правил, прийнятих в
і, в електронній таблиці має вигляд:
а) 3*(а1+в1)/(5*(2*в1-3*а2)); б) 3*(а1+в1)/5(2в1-3а2);
в) 3(а1+в1): 5*(2в1-3а2); г) 3(а1+в1)/(5(2в1-
1:
var i,n,a,s: integer;
begin
s:=0;
write('Введите количество чисел: '); readln(n);
for i := 1 to n do begin
write('Введите ', i,'-е число: '); readln(a);
s:=s+a;
end;
write('Сумма введённых чисел равна: ', s);
end.
2:
var i,n,s: integer;
begin
n:=50;
s:=0;
for i := 1 to n-1 do begin
if i mod 2 = 0 then s:=s+i;
end;
write('Сумма положительных чётных чисел меньше ', n, ' равна: ', s);
end.
3.
var i,n: integer;
s: real;
begin
n := 20;
s := 0;
for i := 1 to n-1 do begin
s := s + i / (n-1) ;
end;
write('Среднее арифметическое всех положительных чисел меньше ', n, ' равна: ', s:0:2);
end.