Информатика | 10 - 11 классы
1. С клавиатуры вводится целое число N.
Далее вводится N символов.
Подсчитать количество маленьких латинских букв.
Pascal.
С клавиатуры вводятся 3 целых числа?
С клавиатуры вводятся 3 целых числа.
Определить количество положительных чисел в этом наборе.
С клавиатуры вводится l целых чисел?
С клавиатуры вводится l целых чисел.
Подсчитать кол - во печатных чисел и произведение положительных.
С клавиатуры вводят символ ?
С клавиатуры вводят символ .
Составьте программу , которая выводит два следующих символа.
На языке pascal.
СрочнноооС клавиатуры вводится целое число K (K?
Срочннооо
С клавиатуры вводится целое число K (K.
С клавиатуры вводятся два целых положительных числа?
С клавиатуры вводятся два целых положительных числа.
Найти их наименьшее общее кратное.
Pascal ABC
функцией.
С клавиатуры вводится целое число K (K?
С клавиатуры вводится целое число K (K.
С клавиатуры вводятся числа, пока не будет введено число, делящееся на 5?
С клавиатуры вводятся числа, пока не будет введено число, делящееся на 5.
Подсчитать количество и сумму тех, которые больше 10.
СРОЧНО?
СРОЧНО!
С клавиатуры вводится строка.
Подсчитать и вывести среднее арифметическое цифр в строке.
С клавиатуры вводится строка.
Подсчитать и вывести сумму чисел в строке.
С клавиатуры вводится строка.
Подсчитать и вывести произведение четных чисел в строке, если таких чисел нет, то вывести 0.
С клавиатуры вводится строка?
С клавиатуры вводится строка.
Подсчитать сколько раз в нее входит подстрока abc.
В массиве из 10 чисел подсчитать количество элементов, большихnи меньшихm(параметры m и n вводятся с клавиатуры)?
В массиве из 10 чисел подсчитать количество элементов, больших
n
и меньших
m
(параметры m и n вводятся с клавиатуры).
Pascal ABC.
Вы находитесь на странице вопроса 1. С клавиатуры вводится целое число N? из категории Информатика. Уровень сложности вопроса рассчитан на учащихся 10 - 11 классов. На странице можно узнать правильный ответ, сверить его со своим вариантом и обсудить возможные версии с другими пользователями сайта посредством обратной связи. Если ответ вызывает сомнения или покажется вам неполным, для проверки найдите ответы на аналогичные вопросы по теме в этой же категории, или создайте новый вопрос, используя ключевые слова: введите вопрос в поисковую строку, нажав кнопку в верхней части страницы.
Program j7 ; var a : array of char ; n : integer ; i : integer ; cnt : integer ; begin WriteLn('Введите размер массива : ') ; ReadLn(n) ; SetLength(a, n) ; for i : = 0 to n - 1 do begin Write('Символ № ', i + 1, ' ') ; ReadLn(a[i]) ; / / Заполнение массива end ; for i : = 0 to n - 1 do begin Write(a[i] + ' ') ; / / Вывод массива (по желанию) end ; WriteLn() ; cnt : = 0 ; for i : = 0 to n - 1 do begin if a[i] in ['a'.
'z'] then begin Inc(cnt) ; / / подсчет маленьких латинских букв end ; end ; WriteLn('Количество маленьких латинских букв : ', cnt) ; Write('Нажмите клавишу ENTER для выхода.
') ; ReadLn() ; end.