1) написати програму, яка перевіряє, чи є число парних або непарних
2) Написати програму, яка перевіряє, чи ділиться на 3 ціле число введене з клавіатури
3) написати програму, яка визначає, є квиток "щасливим" чи ні, квитка 6-ти значний номер .Білет є щасливим, якщо якщо сума перших двох чисел дорівнює сумі трьох останніх цифр
5) написати програму, яка перевіряє, чи ділиться на шість ціле число, введене з клавіатури
6) написати програму, яка визначить чи ділиться число b на число a остачі.
7) дано ціле 4-х значне число. Поміняти місцями цифри, які стоять в цьому числі в різні місця, вивести на екран поточна й змінене число
Відповіді і пояснення
1)))))))))
program z;
var
i. integer;
begin
Writeln ( 'Введіть число'); Readln (i);
if i mod 2 = 0
then
Writeln ( 'Кількість парне')
else
Writeln ( 'число не парне');
readln;
end.
2))))))))))))
program z;
var
i. integer;
begin
Writeln ( 'Введіть число'); Readln (i);
if i mod 3 = 0
then
Writeln ( 'Число ділиться на 3')
else
Writeln ( 'Число не ділиться на 3');
readln;
end.
3))))))
program z;
var
i: array [1..6] of byte;
x: byte;
begin
for x: = 1 to 6 do
begin
Writeln ( 'Введіть', x, 'цифру з 6');
Read (i [x]);
end;
if (i [1] + i [2]) = (i [4] + i [5] + i [6])
then
Writeln ( 'Квиток щасливий')
else
Writeln ( 'квитків не щасливий');
Readln;
end.
5)))
program z;
var
i. integer;
begin
Writeln ( 'Введіть число'); Readln (i);
if i mod 6 = 0
then
Writeln ( 'Число ділиться на 6')
else
Writeln ( 'Число не ділиться на 6');
readln;
end.
6)))))
program z;
var
a, b: integer;
begin
Writeln ( 'Введіть число A'); Readln (a);
Writeln ( 'Введіть число B'); Readln (b);
if b mod a = 0
then Writeln ( 'Число А ділиться без остачі на число В')
else Writeln ( 'Число А не ділиться без остачі на число B');
Readln;
end.
Це питання архівний. Додати нове питання
Сумніваєшся у відповіді?
Дізнавайся більше на знання!
У тебе проблема з домашніми завданнями?Попроси про допомогу!
80% відповідей приходять протягом 10 хвилин
Ми не тільки відповімо, але і пояснимо