Предмет: Информатика,
автор: kirgashevasuan
1. Вывести сообщение об отсутствии цифры 1. (Пример. 200 –число не содержит 1, 221 – число содержит 1).
2. Изменить первую и третью цифры в 3-х значном числе.
ЯковПервый:
Число пользователь вводит сам? На что изменять 1 и 3 цифры в 3-х значном числе? На каком языке требуется написать? P.S. Для хорошего ответа нужно хорошее объяснение задачи
Ответы
Автор ответа:
1
Pascal / Delphi
1) Program zadanie_1;
var ss: string; i: integer; flag: boolean;
begin
write('Введите число: ');
readln(ss);
for i:=1 to length(ss) do
if (ss[i]='1') then begin flag:=true; break; end else flag:=false;
if (flag=true) then writeln('Число содержит 1') else writeln('Число не содержит 1');
readln;
end.
2) Program zadanie_2;
var n,c,c1,c2,c3: integer;
begin
write('Введите число: ');
readln(n);
c1:=n div 100;
c2:=n mod 100 div 10;
c3:=n mod 100 mod 10;
c:=c3*100+c2*10+c1;
writeln('Новое число: ',c);
readln;
end.
Похожие вопросы
Предмет: Математика,
автор: Zavialovae0542
Предмет: Русский язык,
автор: connectshop290920
Предмет: Биология,
автор: malanych
Предмет: Химия,
автор: fer20