Ребят что будет выведено на экран в результате следующих операций:
write(125+25);
write(‘125+25’);
A:=7; C:=A mod 2; write(C);
A:=5; B:=A div 3; C:= A mod 3; write(B,C);
S:=2.75; rez1:=round(S); rez2:=trunc(S); write(rez1,rez2);
S:=2.1; rez1:=round(S); rez2:=trunc(S); write(rez1,rez2).
У меня программа паскаль не раюотает поэтому вас о балов
var s:string; mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице} c:char; i:longint; begin read(s); for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице} mas[c]:=0; for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)} mas[s[i]]:=mas[s[i]]+1; for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся} if(mas[c]=1) then writeln(c); end.