Есть программа, выводящая недостающие цифры, введенные с клавиатуры, дополнить ее чтобы она также выводила, недостающие латинские буквы

@vernon · Регистрация: 15.01.2014

Author24 — интернет-сервис помощи студентам

Есть программа, выводящая недостающие цифры, введенные с клавиатуры, дополнить ее чтобы она также выводила, недостающие латинские буквы.ДОПОЛНИТЕЛЬНЫЕ СТРОКИ ИСПОЛЬЗОВАТЬ НЕЛЬЗЯ!!!

Pascal

  program variant;
uses crt;
var
s: string;
i: integer;
begin
write('введите строку: ');
readln(s);
for i := 0 to 9 do
if pos(IntToStr(i), s) = 0 then
write(' ',i);
end.

@pahuss · 17.02.2014, 17:43

Pascal

program variant;
uses crt;
var
s: string;
i: integer;
j: char;
begin
write('ââåäèòå ñòðîêó: ');
readln(s);
for i := 0 to 9 do
if pos(IntToStr(i), s) = 0 then
write(' ',i);
for j := 'A' to 'Z' do
if pos(j, s) = 0 then
write(' ',j);
end.

@Puporev · 17.02.2014, 17:44

Pascal

program variant;
uses crt;
var s: string;
    i: integer;
    c: char;
    m:set of char;
begin
write('введите строку: ');
read(s);
m:=['0'..'9','A'..'Z','a'..'z'];
for i := 1 to length(s) do
m:=m-[s[i]];
for c:='0' to 'z' do
if c in m then write(c)
end.

	17.02.2014, 17:44

Опции темы