напишите программу для решения задачи: Дано целое неотрицательное число. Определить количество нулей в его десятичной записи, на до на Паскале,
5-9 класс
|
ОЧЕНЬ НУЖНО!!! Заранее благодарю.
Program noli;
Var X, Y: integer;
Begin
S:=0;
Write ('Введите число Х');
Read (X);
While X<>0 do begin
Y:= X mod 10;
If Y = 0 then S:= S + 1;
X:= X div 10;
Write ('Количество нулей в числе', S);
End.
Другие вопросы из категории
придумайте две задачи на конъюнкцию и дизъюнкцию(с решением)
пожалуйстааааааа
на другой берег. Однако в лодку кроме крестьянина помещается либо только волк, либо коза, либо только капуста. Остявлять волка с козой либо козу с капустой без присмотра нельзя - волк может съесть козу, а коза- капусту. Как должен вести себя крестьянин?
Оформите план переправы любым известным вам способом.
Читайте также
ляя значения скорости до целых чисел. Необходимо определить максимальную зарегистрированную скорость автомобиля. Если скорость хотя бы одного автомобиля была меньше 30 км\ч, выведите YES, иначе выведите NO.
Программа получает на вход число проехавших автомобилей N (1=<N=<30), затем указывает их скорости. Значение скорости не может быть меньше 1 и больше 300.
Программа должна сначала вывести максимальную скорость, затем YES или NO.
Написать на языке Паскаль
Пример работы программы: (смотри во вложениях)
значение скорости до целых чисел . необходимо определить минимальную зарегистрированную скорость автомобиля . если скорость хотя бы одного автомобиля была больше 80 км/ч , ВЫВЕДИТЕ YES ИНАЧЕ NO . программа получает на вход число проехавших автомобилей n(1<=n<=30), затем указываются их скорости . значение скорости не может быть меньше 1 и больше 300 . программа должна сначала вывести минимальную скорость , затем yes или no .
алгоритм для решения задачи: Найти действительные корни квадратного уравнения вида ax^2+bx+c=0.
1 Даны стороны прямоугольника a , b. Найдите его площадь и периметр.
2 Дана длина ребра куба a. Найти объем и площадь его поверхности.
НУЖНО НА ЗАВТРА ПОМОГИТЕ!
Дам за него 15 баллов. Пожалуйста, помогите!