Помогите с Делфи... | Sololearn: Learn to code for FREE!
New course! Every coder should learn Generative AI!
Try a free lesson
+ 1

Помогите с Делфи...

Заданы два предложения, содержащие буквы латинского и русского алфавитов. Для ввода каждого предложения используется отдельный компонент Edit. Написать программу, которая определяет, в каком предложении латинских букв больше. Функция для нахождения латинских букв должна иметь результат строкового типа. Как бы нужно это задание оформить в виде функции const D = ['А'..'Я','а'..'я']; var S: String; i,Len : Integer; begin S:= Edit1.Text; Len:= Length(S); while i<=Len do begin if s[i] in D then delete(s,i,1)else i:=i+1; Edit2.Text:= S; end; end; end.

21st Mar 2019, 5:05 PM
Юлия
1 Answer
0
please, post your questions in english to help others understand what you want and give you the best answer
28th Apr 2019, 11:51 AM
Ahmad Abomahmod
Ahmad Abomahmod - avatar