Дана строка, например: "dfh hkjh hjhlhl nbmn n mn dfh". составьте программу, выводящую на экран слова, заканчивающиеся символом 'h', если такихнет - вывести "no".
Var a: array [1..20] of integer; i: integer; begin for i : = 1 to 20 do readln(a[i]); for i : = 1 to 20 do if (a[i] < > a[1]) then begin writeln('неверно'); exit; end; writeln('верно'); end.надеюсь, я правильно понял , а то иногда не тут вначале надо 20 чисел ввести, а потом она проверяет, верно ли, что они все равны)
Дана строка, например: "dfh hkjh hjhlhl nbmn n mn dfh". составьте программу, выводящую на экран слова, заканчивающиеся символом 'h', если такихнет - вывести "no".
begin
var s : = 'dfh hkjh hjhlhl nbmn n mn dfh';
var count : = s.towords
.where(x -> x[x.length] = 'h').println.count;
if count = 0 then
print('no')
end.