Информатика, опубликовано 2018-08-22 18:14:46 by Гость

Помогите пожалуйста с информатикой. 1)Написать программу на turbo paskal, которая определяет все ли цифры трехзначного числа одинаковые

Ответ оставил Гость

Var n,e,d,s: longint;
begin
read(n);
s:=n div 100;
n:=n mod 100;
d:=n div 10;
e:=n mod 10;
if (s=d) and(s=e)and(d=e) then writeln(ravny) else writeln(ne ravny);
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.