вот
Объяснение:
Друковані символи-елементи набору символів, що мають графічне представлення, наприклад у вигляді значка на папері або певного малюнка на екрані. Прикладами друкованих символів є букви, цифри, розділові знаки та псевдографічні символи. Взагалі кажучи, друкований символ це такий символ, при отриманні якого головка АЦПУ повинна зобразити щось на папері, після чого пересунутися на одну позицію вправо. Друковані символи протиставляються керуючим символам, на які пристрої виведення тексту повинні реагувати інакше. Сховавши
begin
var a,b,c:integer;
write('Введите числа a,b: '); readln(a,b);
for var l:=1 to 3 do if (a.ToString[l]+a.ToString[l+1])=b.ToString then inc(c);
writeln('Результат: ',(c>0)? c.ToString:'Число a не является внутренним для b');
end.
Примечание:
Если хотите сделать защиту от некорректного ввода, то программа будет выглядеть так:
begin
var a,b,c:integer;
write('Введите числа a,b: '); readln(a,b);
if (a.ToString.Length<>4) or (a<0) then
writeln ('Число а должно быть положительным четырехзначным')else
begin
if (b.ToString.Length<>2) or (b<10) then
writeln ('Число b должно быть положительным двухзначным') else
begin
for var l:=1 to 3 do if (a.ToString[l]+a.ToString[l+1])=b.ToString then inc(c);
writeln('Результат: ',(c>0)? c.ToString:'Число a не является внутренним для b');
end;
end;
end.
uses crt;
var a:array[1..1000] of integer;
i,max,n:integer;
begin
clrscr;
write('n<1000, n=');
read(n);
write('a[i]<30000, a[i]:');
for i:=1 to n do
begin
readln(a[i]);
max:=0;
if(a[i] mod 5=0) and (a[i]>max)
then max:=a[i];
end;
writeln('max=',max);
end.