#include <iostream>
using namespace std;
int main()
{
setlocale(0, "");
int num{}, A{};
cout << "Введите число, из которого нужно удалить цифру: ";
cin >> num;
while (true)
{
cin.clear();
cin.ignore(1024, '\n');
cout << endl << "Введите цифру, которую нужно удалить из числа: ";
cin >> A;
if (A < 0 || A > 9)
{
cout << "Ошибка! (Нужно ввести цифру (0..9), а не число)";
continue;
}
break;
}
int newNum{}, counter{ 1 };
while (num > 0)
{
if (num % 10 != A)
{
newNum += counter * (num % 10);
counter *= 10;
}
num /= 10;
}
cout << endl << "Введённое число без цифры " << A << ": " << newNum;
return 0;
}
program raf105;
var n,a,x,i:integer;
begin
write('Введите количество учеников: ');
readln(n);
writeln('Вводите кол во правильно решённых вопросов учеников по очереди: ');
for i:=1 to n do
begin
readln(a);
if a<5
then x:= x+1;
end;
writeln('Учениками было получено ',x,' неудовлетворительных оценок');
end.
Цикл whileprogram raf105;
var n,a,x,i:integer;
begin
write('Введите количество учеников: ');
readln(n);
writeln('Вводите кол во правильно решённых вопросов учеников по очереди: ');
while i<>n do
begin
i:= i+1;
readln(a);
if a<5
then x:= x+1;
end;
writeln('Учениками было получено ',x,' неудовлетворительных оценок');
end.
Цикл repeatprogram raf105;
var n,a,x,i:integer;
begin
write('Введите количество учеников: ');
readln(n);
writeln('Вводите кол во правильно решённых вопросов учеников по очереди: ');
repeat
i:= i+1;
readln(a);
if a<5
then x:= x+1;
until i=n;
writeln('Учениками было получено ',x,' неудовлетворительных оценок');
end.
Язык PascalABC