Составить программу для решения задачи: задайте целое число ; определите, является ли оно нечетным.
5-9 класс
|
var
x:integer;
begin
readln(x);
if(x mod 2 = 0) then writeln('Четное')
else writeln('Нечетное');
end.
Другие вопросы из категории
Изобразить семейство прямоугольников, расположенных вертикально с одинаковым шагом и заполняющих весь экран.
____________
Для QBasic
вместить только двух человек. Купцы боязливо поглядывали на разбойников,так как знали ,что во время переправы может всякое случится .Если во время переправы на берегу число разбойников и купцов будет одинаковым ,то разбойники не тронут купцов; если же число разбойников превысит число купцов хотя бы на одного человека ,то разбойники убьют купцов.Перед купцами стояла сложная задача ,но она была ими решена -все перебрались на тот берег,и жертв не было.Как сумели переправиться купцы и разбойники и сколько рейсов совершила лодка? За рейс следует считать движение лодки в одном направление .
Читайте также
алгоритм для решения задачи: Найти действительные корни квадратного уравнения вида ax^2+bx+c=0.
Например, 17 и 43 - простые числа.Для решения задачи приведена программа с пропущенными строками. Необходимо в ответе записать содержание пустых строк, которое сделает программу правильной. Количество и расположение строк не менять.
Program Task;
Uses CRT;
Var n,i:integer;
b:boolean;
Begin
repeat
write('Число='); readln(n);
until n>0;
b:=true;
пропущена строка надо чтото записать
repeat
снова пропущена строка и надо что то записать
i:=i+1
равносторонний,равнобедренный или какой либо другой.
Вот ещё одна
Составить программу:Даны а,b,c-целые числа.Если они большн 0-вычислите сумму их квадратов;а если хотя бы одно из них четно-вычислите их сумму и произведение.
Пожалуйста ребят.
ОЧЕНЬ НУЖНО!!! Заранее благодарю.
p=1/2*1/4...1/2N;
Турбо паскаль!!!!
знаю задача не очень то и сложно но я забыл как решать такого типа помогите люди пожалуйста срочно нужно