Ответ: 3 человека
Так как если все члены семьи дедушка отец папы,а папа отец мальчика таким образом у нас два отца. Если же наоборот то два сына
Желаю удачи:)
Ну отдыхает и че?.......,,.,,
uses crt;
var
a, b, i : real ;
begin
clrscr;
write('Курс $= '); readln (a);
write ('Сумма в рублях = '); readln (b);
i:= b/a;
writeln (i:6:2);
readkey;
end.
Мен азанда жаттығу жасаймын .Мен ыдыс жуамың.Мен мектеп ке барғанды жақсы көремін. Мен анама, әкеме және әжеме көмектескенді жақсы көремін.
var
a: array [1..4] of char;
s: string;
i: byte := 1;
begin
readln(s);
while (i < length(s)) do
begin
if ((not(s[i] in ['ж', 'ч', 'ш', 'щ'])) or (pos(s[i], s) > i)) then
delete(s, i, 1)
else
i += 1;
end;
writeln(s);
end.
Суть в том, чтобы удалить все нешипящие буквы, а также повторы шипящих, после чего просто вывести строку