Напишите пожалуйста, 3 программы на Pascal'е: 1. Дано целое число. Если оно положительное, то прибавить к нему 1, если же нет, то найти остаток
5-9 класс
|
от деления этого числа на 2.
2. Ввести двузначное число. Определить, какая цифра в числе больше.
3. Дано число. Является ли число 7 его делителем?
Program R1;
Var n:integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
if n>0 then n:=n+1 else
n:=abs(n mod 2) ; {примечание-остаток будет положительным)
writeln(n);
close(input);
close(output);
end.
2 задача
Program R1;
Var n,l:integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
if (n mod 10)>(n div 10) then writeln('2>1') else
if (n mod 10)<(n div 10) then writeln('2<1') else
if (n mod 10)=(n div 10) then writeln('2=1');
close(input);
close(output);
end.
Другие вопросы из категории
пасудзіны p=dgh (g=9.8м/с); б) масу вадкасці ў кожнай пасудзіне m=dV=dhS (S=3.14R); в)сумарную масу вадкасці. Зыходныя даныя (радыус пасудзіны R, вышыня слупа вадкасці h) уводзяцца ў масіў з клавіатуры, рэзулятат выводзіцца на экран.
program d;
var a, b, c: integer;
begin
for c:= 1 to 5 do
begin
a:= a+ 1;
b:= b- 1;
end;
end.
Читайте также
Дано целое число, если оно двузначное, то умножить на 2, в противном случае вычесть 10.
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
Напишите программу, которая возводит в квадрат введенное целое число, если оно отрицательное, и выводит на экран результат.
квадрат этого числа.№2.определить впишется ли квадрат в круг.