Программа в pascal abc. с клавиатуры вводится два слова. надо вывести на экран те буквы, которые есть и в одном и во втором слове (печатать буквы без повторений)
197
450
Ответы на вопрос:
var
st: array[0..10000]of char; s,s1: string; g,g1,i,j,z: longint; t: char;
begin
z: =0;
readln(s);
readln(s1);
g: =length(s);
g1: =length(s1);
for i: =1 to g do
for j: =1 to g1 do if s[i]=s1[j] then
begin
inc(z);
st[z]: =s[i];
break;
end;
for i: =1 to z-1 do for j: =i+1 to z do if st[i]> st[j] then
begin
t: =st[i];
st[i]: =st[j];
st[j]: =t;
end;
st[z+1]: ='-';
for i: =1 to z do i st[i]< > st[i+1] then write(st[i],' ');
end.
program xxx;
var a, b, s, i : integer;
begin
write('введите а-');
readln (a);
write('введите b-');
readln (b);
s: =0; for i: = a to b do s: =s + i * sqr(i);
writeln ('сумма кубов =', s)
end.
Популярно: Информатика
-
aigulkordai12.07.2021 03:41
-
MaFizLike20.07.2020 04:28
-
danilgrekov2018.05.2022 05:10
-
DrYgAn899802.10.2020 09:40
-
shifu9013.01.2020 01:52
-
ilchumakovsky107.12.2021 15:16
-
anaraermus19.08.2020 00:09
-
Monika95012.10.2022 20:21
-
Джaмиль18.05.2022 06:19
-
диана243717.10.2022 03:20