помогите пж по информатике 8 класс
Ответы
Если нужна проверка программы:
Входные данные:
- n1: 2
- n2: 1
- n3: 28
Выходные данные:
- Ваше число 2 четное: TRUE
- Ваше число 1 нечетное: TRUE
- Ваше число 28 кратно 7: TRUE
См скриншот 1
Если нужна аналогичная программа:
К примеру на проверку деления с остатком с ответом TRUE / FALSE:
Program Khamatdinovazifa;
Uses crt;
Var n1, n2 : integer;
b1 : boolean;
Begin
CLRSCR;
Write ('Введите делимое число: ');
ReadLn (n1);
Write ('Введите делитель числа: ');
ReadLn (n2);
b1 := (n1 mod n2 = 0);
WriteLn ('Ваше число ', n1, ' делится на число ', n2 , ' без остатка: ', b1);
WriteLn;
ReadLn;
End.
См скриншот 2
Программа преподавателя:
Program name02;
Uses crt;
Var n1, n2, n3 : integer;
b1, b2, b3 : boolean;
Begin
CLRSCR;
Write ('Введите одно из чисел 2, 4, 6 ...: ');
ReadLn (n1);
b1 := (n1 mod 2 = 0);
WriteLn ('Ваше число ', n1, ' четное: ', b1);
WriteLn;
Write ('Введите одно из чисел 1, 3, 5 ...: ');
ReadLn (n2);
b2 := (n2 mod 2 = 1);
WriteLn ('Ваше число ', n2, ' нечетное: ', b2);
WriteLn;
Write ('Введите одно из чисел 7, 14, 21 ...: ');
ReadLn (n3);
b3 := (n3 mod 7 = 0);
WriteLn ('Ваше число ', n3, ' кратно 7: ', b3);
ReadLn;
End.
Проверить можно в данном компиляторе:
onlinegdb.com/online_pascal_compiler
