Информатика | 5 - 9 классы
Pascal ABC, без repeat, если можно.
Нужно написать программу на pascal abc?
Нужно написать программу на pascal abc.
Нужно написать программу на pascal abc?
Нужно написать программу на pascal abc.
Помогите записать выражения на языке Pascal и вычислить их с помощью ABC Pascal?
Помогите записать выражения на языке Pascal и вычислить их с помощью ABC Pascal.
Pascal, цикл while или repeatВвести число?
Pascal, цикл while или repeat
Ввести число.
Найти наибольшую цифру в записи числа.
Ввести число?
Ввести число.
Вычислить сумму первой и последней цифры.
Pascal цикл while или repeat.
Как сделать алгоритм в Pascal ABC?
Как сделать алгоритм в Pascal ABC?
Как нарисовать оленя в pascal abc ?
Как нарисовать оленя в pascal abc ?
На языке Pascal ABC реализовать программу, выводящую первых K четных чисел 2, 6, 10, 14?
На языке Pascal ABC реализовать программу, выводящую первых K четных чисел 2, 6, 10, 14.
K. (K задаётся с клавиатуры)
можно пожалуйста через while и repeat
и с объяснением.
Помогите с Pascal ABC?
Помогите с Pascal ABC.
Вы находитесь на странице вопроса Pascal ABC, без repeat, если можно? из категории Информатика. Уровень сложности вопроса рассчитан на учащихся 5 - 9 классов. На странице можно узнать правильный ответ, сверить его со своим вариантом и обсудить возможные версии с другими пользователями сайта посредством обратной связи. Если ответ вызывает сомнения или покажется вам неполным, для проверки найдите ответы на аналогичные вопросы по теме в этой же категории, или создайте новый вопрос, используя ключевые слова: введите вопрос в поисковую строку, нажав кнопку в верхней части страницы.
Var a, min : integer ;
begin
write('a = ') ;
readln(a) ;
min : = 30000 ;
while a0 do
begin
if (a mod 3 = 0)and(a.
Var a, min : integer ;
begin
writeln('Вводите числа пока вам не надоест(чтобы ост нажмите 0) : ') ;
write('Введите первое число : ') ;
readln(a) ;
while a0 do
begin
write('Введите число последовательности : ') ;
readln(a) ;
if min>a then if a mod 3 = 0 then min : = a ;
end ;
write('Минимальное число кратное 3 : ', min) ;
end.