Как создать программу Pascal, бонус 1 кредит
Помогите! Нужно составить в программе Pascal 2 задачи: 1 задача - составить программу, которая определяет какие числа А или В - кратные двум, 2 задача - составить программу, которая определяет какие числа А или В - кратные трем. Задачи нужно решить срочно в течении двух дней!!!
Ответы (4):
program zad1;
var a: integer; b: integer;
begin
writeln ('Vvedite chislo A: ');
readln (a);
writeln ('Vvedite chislo B: ');
readln (b);
if a mod 2 = 0 then writeln ('Chislo A = ', a, ' kratno 2')
else if b mod 2 = 0 then writeln ('Chislo B = ', b, ' kratno 2')
else writeln ('Ni odno iz chisel ne kratno 2') ;
readln;
end.
Вторую решите по аналогии (2 заменить на 3).
самый простой способ - это не ждать готового ответа, а найти в поисковике как писать программы и попытаться разобраться. Программа простецкая. Пишете стандартный код, а вместо формулы - пишете своё условие.
Честно. Программу на Паскале написать несложно. Задачи у вас легчайшие. Больше даже не на программное знание, а на логику. Вы сами с легкостью справитесь, если загляните в Интернет.
