1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
Алгоритм (программа на паскале):
var a,v0,t,s:real;
begin
a:=2;
v0:=0;
t:=5;
s:=v0*t+a*t*t/2;
writeln(s, ' м');
end.
Результат:
25 м
Блок-схема - в прилагаемом файле.
Ну вот куча обьектов девочек, но вот девочек с именем Лена куда меньше, а девочек Лен с Фамилией Иванова еще меньше, и так потихоньку можно добраться до конкретного экземпляра из множества обьектов
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.
Суть в том, чтобы удалить все нешипящие буквы, а также повторы шипящих, после чего просто вывести строку
Что........ странная задача вот сижу думаю