Регистрация
asovgira
04.09.2021 18:59
Информатика
Есть ответ 👍

Написать программу на паскаль:
Дано натуральное число N. Выбросить из записи числа N все четыре цифры нужно!!!!!

118
319
Посмотреть ответы 3

Ответы на вопрос:

happymenfeed
happymenfeed
4,7(65 оценок)

65..........баллов... ..

KEK22813371488
KEK22813371488
4,8(24 оценок)

program pr;

uses crt;

Var i,n,a,s:integer;

Begin

Writeln('Введите. n');

readln(n);

i:=1;

s:=0;

While n<>0 do

Begin

a:=n mod 10;

if (a<>0) and (a<>5) then

Begin

     s:=s+a*i;

     i:=i*10;

end;

n:=n div 10;

end;

Writeln(s);

end.

Объяснение:

Anastasia9311
Anastasia9311
4,4(24 оценок)

ответ: s = 12340

Итерации:

1) s = 0; s = 1; s = 10

2)s = 10; s = 12; s = 120

3) s = 120; s = 123; s = 1230

4) s = 1230; s = 1234; s = 12340

Популярно: Информатика