сервис вопросов и ответовНаписать программу которая определяет нуль и считает его количество из ряда введенных чисел. И объяснить каждую
10-11 класс|
|
IGGGAAA
25 окт. 2016 г., 20:50:50 (7 лет назад)
Inga050
25 окт. 2016 г., 21:33:36 (7 лет назад)
var s:string;
i,sum:integer; // Объявление переменных
begin // Начинаем программу
writeln('Vvedite chislo'); // Вывод текста
readln(s); // Ввод текста
sum:=0; // Присваиваем переменной sum значение 0 чтобы при вводе текста отличного от 0, программа выводила правильный результат то есть 0.
for i:=1 to length(s) do if s[i]='0' then sum:=sum+1; // Запускаем счетчик с 1 до length(s) что значит эта команда, она считает сколько в тексте символов. И проверяем с 1 символа до length(s) совпадает ли символ со значением 0, если совпадает то прибавляем 1.
writeln(sum); // Вывод суммы
end. // Конец программы
Ответить
Другие вопросы из категории
Паскаль!!1Даны катеты прямоугольного треугольника. Найти его периметр
2даны основания и высота равнобедренной трапеции найти ее периметр
3дано расстояние в сантиметрах найти число полных метров в нем
Помогите!Сканируется цветное изображение размером 10 х 10 см. Разрешающая способность сканера 1200 х 1200 dpi, глубина цвета 24 бита. Какой иформационный о
бъем будет иметь полученный графический файл?
Читайте также
1)Написать программу, которая спрашивает имя пользователя, а потом здоровается. 2)Написать программу, которая выводит на экран перевёрнутый
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))
Написать программу Паскаль))) срочно!)))
Ввести с клавиатуры натуральное число.написать программу, которая определяет, кратна ли сумма его цифр 6.
Написать программу, которая генерирует и выводит на экран массив из 10 случайных чисел в диапазоне от -100 до 100, меняет местами первую и вторую
половину массива и выводит новый массив на экран.
Изначально, задача была такая: На вход программы подается натуральное число. Требуется написать программу, которая определяет составное или простое число
на входе и выводит сумму его цифр.
Я написал первую часть программы (без вывода суммы цифр) :
program sg3;
uses crt;
var i,a,k: integer;
begin
clrscr;
write('Введите число: ');
readln(a);
k:=0;
for i:=2 to a div 2 do
if a mod i =0 then k:=k+1;
if k=0 then write('Простое')
else writeln('Составное');
readln;
end.
Допишите пожалуйста код, который бы выводил сумму цифр,Паскаль
Написать программу, которая выводит таблицу квадратов первых десяти целых положительных чисел (естественно, квадраты должны считаться В ЦИКЛЕ!). Ниже
представлен вид экрана во время работы программы, который вам нужно реализовать:
Таблица квадратов
-----------------------------
Число Квадрат
-----------------------------
1 1
2 4
и т.д.
Вы находитесь на странице вопроса "Написать программу которая определяет нуль и считает его количество из ряда введенных чисел. И объяснить каждую", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.