var z,a,s:integer;
begin
readln(z)
a:=z mod 10;
z:=z div 10;
s:=0;
while (z>0) and (s=0) do
if z mod 10<>a then s:=1
else z:=z div 10;
if s=0 then write ('yes')
else write('no');
end.

0 0

1 год назад

Помогите пожалуйста,по информацике 1)Какой тип принтера целесообразно использовать для печати финансовых документов?Фотографий?

марина73-73 [4]

Для финансовых - матричный ,

0 0

4 года назад

Прочитать ещё 2 ответа

Даны целые числа m и n. Определить, являются ли они делителями значения суммы первой и предпоследней цифры целого четырехзначног

Ivan4ik [7]

Var

m,n,s,p:integer;

Begin

read(m,n,s);

p:= (s mod 10) + (s div 100 mod 10); {p сумма цифр}

If (p mod m = 0) and (p mod n = 0) then

writeln('Числа ',m,' и ',n,' являются делителями числа ',p)

else

writeln('Числа ',m,' и ',n,' не являются делителями числа ',p);

end.

Объяснение из скобок можешь убрать

0 0

4 года назад

Задание:придумать удобную систему папок и правила именования файловЗаранее спасибо)

Сергей Гусев

Наименования удобно расчислять по буквам алфавита. Также имеется возможность использовать числа.

0 0

4 года назад