Даны м, n, к. определить, какие две переменные равны. если равных пе¬ременных нет, вывести соответствующее сообщение
116
162
Ответы на вопрос:
Var m,n,k: integer; begin readln(m,n,k); if m=n then writeln('m = n') else if m=k then writeln('m = k') else if n=k then writeln('n = k') else writeln('равных значений нет'); end. пример: 8 5 8 m = k
1. var s,s1: string; i: integer; begin readln(s); s1: =s; for i: =1 to length(s1) do begin if s1[i]='а' then s1[i]: ='б' else if s1[i]='а' then s1[i]: ='б' else if s1[i]='б' then s1[i]: ='а' else if s1[i]='б' then s1[i]: ='а'; end; writeln(s1); end. 2. var s,s1: string; i,k: integer; begin readln(s); s1: =s; i: =1; k: =1; while pos(' ',s1)> 0 do begin delete(s1,1,pos(' ',s1)); k: =k+1; end; writeln(k); end. 3. var s,famil,s1,imya,otch: string; i: integer; begin readln(s); famil: =copy(s,1,pos(' ',s)-1); delete(s,1,pos(' ',s)); imya: =copy(s,1,1); delete(s,1,pos(' ',s)); otch: =copy(s,1,1); s1: =concat(imya,'.',' ',otch,'.',' ',famil); writeln(s1); end.
Популярно: Информатика
-
350804.08.2022 06:12
-
doda4i09.08.2020 20:06
-
TOTOURHHJF27.09.2021 05:21
-
Хей15130.08.2022 11:30
-
katpetrompet434502.04.2021 04:35
-
SlavaKirja06.02.2020 01:58
-
yaroslavahl08.05.2022 06:58
-
лолkjk08.12.2022 19:00
-
VLaDiSLaVVoRoNKoV10.10.2022 13:49
-
Zazej20.09.2022 19:07