Напечать все чётные трёхзначные числа. В паскале!!
5-9 класс
|
Program qr;
uses crt;
var x,i:integer;
begin
for i:=1 to 999 do
if not odd(i) then writeln(i);
readln;
end.
for i:=1 to 999 do
if i mod 2 =0 then
writeln(i);
Другие вопросы из категории
содержат алфавиты, с помощью которых записаны сообщения, если известно, что размер каждого алфавита не превышает 32 символов и на каждый символ приходится целое число битов?
среди вытянутых шаров:
1) оказался хотя бы один черный _____ -сколько раз?
2) оказался хотябы один белый ________ -сколько раз?
3) оказались хотя бы 2 черных ___
4) оказались хотябы 2 белых?
Помогите((
2) Что такое принцип относительной адресации? в каких ситуациях он проявляется?
3) В ячейке D7 записана формула (С3+С5)/D6. Как она изменится при переносе этой формулы в ячейку:
а) D8; б) E7; в) C6; г) F10.
D:\Геометрия\Проект\Графики.bmp
D:\Учёба\Работа\Основа. doc
D:\Учёба\Работа\Замечания.doc
D:\Геометрия\Проект\Диаграммы.bmp
D:\Геометрия\Проект\ Функции.doc
Укажит е полное имя папки, кот орая ост анет ся пуст ой при удалении всех файлов с расширением
.doc. Счит айт е, чт о других файлов и папок на диске D нет .
1) Проект
2) D:\Учёба
3) D:\Учёба\Работ а
4) D:\Геомет рия\Проект
Читайте также
а) есть ли среди цифр заданного целого трёхзначного числа одинаковые;
пример входных данных: 123; 121; 222
пример выходных данных: нет; да; да
б) является ли число "перевёртышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.
верно ли,что первая цыфраа данного числа чётная?
3)найти все трёхзначные числа,которые состоят из разных цыфр,а их сумма равна А(А вводится с клавиатуры)
4)найти все симметричные натуральные числа(палиндромаиз промежутка от А до В(А и В вводится с клавиатуры)
больше 10.
2. Напечатать все делители заданного числа.
Это циклы,ршите в паскале!
файла.Результат поместить в файл g.
дан файл f компоненты которого являются целыми числамию Найти наибольший и наименьший из компонентов файла.результат поместить в файл g
ДАн файл f компоненты которого являются целыми числами найти количество чётных чисел среди компонентов.результат поместить в файл g
Дан файл F компоненты которого являяются целыми числами.записать в файл g все чётных числа файла f
Дан файл F компоненты которого являяются целыми числами переписать компоненты файла f в файл g,так чтобы в файле сначала шли отрицательные а потом положительные числа.