напечатать на экране компьютера все числа в диапазоне от 1 до 100, делящиеся на 13
5-9 класс
|
var i:integer;
begin
for i:=1 to 100 do
begin
if i mod 13 = 0 then writeln (i);
end;
end.
Другие вопросы из категории
старше Ирины. Наталье и Семёну вместе 52 года. Наталье и Василию вместе 48 лет. КТО НА КОМ ЖЕНАТ?кому сколько лет?РЕшите пожалуйста
Читайте также
___________________________________________
Сделайте с циклом предусловием или с постусловием
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
элементов с нечётными индексами
2)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 10,находит максимальный элемент массива,а затем вычисляет,сколько раз он встречается в массиве
Программа задумывает случайное число в диапазоне от 0 до 99. После каждой попытки играющего прога выводит сообщение "больше", "меньше", "угадано". Дается 10 попыток. Программа завершается, если дан правильный ответ или попытки закончились.
значениями. №2 Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 до 10 и вычисляет среднее арифметическое элементов массива. №3 Такое же как и №2, только ...элементов массива с четными значениями.