Pascal. вводим числа пока не 0. Вывести в скольких из введённых чисел встретилась цифра 5.
Написал программу, но не могу найти ошибку
program m;
var a,a1,s:integer;
begin
readln(a);
while(a<>0)do
begin
a1:=(a mod 10);
if (a1=5) then
s:=s+1;
a:=(a div 10);
readln(a);
end;
writeln(s);
end.
Pascal. вводим числа пока не 0. Вывести в скольких из введённых чисел встретилась цифра 5.
Написал программу, но не могу найти ошибку
program m;
var a,a1,s:integer;
begin
readln(a);
while(a<>0)do
begin
a1:=(a mod 10);
if (a1=5) then
s:=s+1;
a:=(a div 10);
readln(a);
end;
writeln(s);
end.
Написал программу, но не могу найти ошибку
program m;
var a,a1,s:integer;
begin
readln(a);
while(a<>0)do
begin
a1:=(a mod 10);
if (a1=5) then
s:=s+1;
a:=(a div 10);
readln(a);
end;
writeln(s);
end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Ошибка в программе заключается в неправильном обозначении знака сравнения "<>" в строке "while(a<>0)do". Нужно исправить на "<>". Также необходимо инициализировать переменную s, добавив значение "s:=0;". Вот исправленный вариант программы:
program m;var a,a1,s:integer;
begin
s:=0;
readlnaaa;
while(a<>0)do
begin
a1:=amod10a mod 10amod10;
if a1=5a1=5a1=5 then
s:=s+1;
a:=adiv10a div 10adiv10;
readlnaaa;
end;
writelnsss;
end.
Теперь программа должна работать правильно и выводить количество цифр 5 во введенных числах.