Информатика | студенческий
Подсчитать кол - во отрицательных чисел из 10 введенных с клавы (pascal abc.
Net).
Очень СРОЧНО?
Очень СРОЧНО!
В Pascal ABC составить задачу : Вывести на экран первые 10 нечётных отрицательных чисел.
Составить программу?
Составить программу!
На языке Паскаль
Подсчитать количество отрицательных чисел из 10 введенных с клавиатуры.
Найти количество чисел, не больше 100.
Дан двумерный массив целых чисел?
Дан двумерный массив целых чисел.
Вывести все строки, состоящие только из чисел одного знака в обратном порядке.
На Pascal ABC.
Net.
РЕШИТЕ ПОЖАЛУЙСТА ЗАДАЧКУ ПО ИКТ В PASCAL ABC NETчерез integer?
РЕШИТЕ ПОЖАЛУЙСТА ЗАДАЧКУ ПО ИКТ В PASCAL ABC NET
через integer.
Cоставьте алгоритм, блок - схему и программу вычисления суммы квадратов первых семи нечётных натуральных чисел?
Cоставьте алгоритм, блок - схему и программу вычисления суммы квадратов первых семи нечётных натуральных чисел.
Pascal abc.
Net.
Написать программу на нахождение суммы отрицательных четных чисел на языке Pascal ABC?
Написать программу на нахождение суммы отрицательных четных чисел на языке Pascal ABC.
Помогите пожалуйста(Pascal ABC?
Помогите пожалуйста(Pascal ABC.
NET).
Найти сумму четных делителей введенного целого числа(Pascal abc?
Найти сумму четных делителей введенного целого числа(Pascal abc.
Net).
Что такое print в pascal abc?
Что такое print в pascal abc.
Net? .
Найти большее из 4 - ёх чисел pascal ABC NET?
Найти большее из 4 - ёх чисел pascal ABC NET.
Вы находитесь на странице вопроса Подсчитать кол - во отрицательных чисел из 10 введенных с клавы (pascal abc? из категории Информатика. Уровень сложности вопроса рассчитан на учащихся студенческий. На странице можно узнать правильный ответ, сверить его со своим вариантом и обсудить возможные версии с другими пользователями сайта посредством обратной связи. Если ответ вызывает сомнения или покажется вам неполным, для проверки найдите ответы на аналогичные вопросы по теме в этой же категории, или создайте новый вопрос, используя ключевые слова: введите вопрос в поисковую строку, нажав кнопку в верхней части страницы.
Program n1 ;
var a, i, k : integer ;
begin
k : = 0 ;
for i : = 1 to 10 do
begin
readln(a) ;
if a.