I Составьте прграммы для решения следующих задач: 1. Дано дузначное число. Определить: а) является ли произведение его цифр двузначным числом; б) больше ли числа а сумма его цифр; в) кратна ли трем сумма его цифр. 2*. Определ...
I Составьте прграммы для решения следующих задач:
1. Дано дузначное число. Определить:
а) является ли произведение его цифр двузначным числом;
б) больше ли числа а сумма его цифр;
в) кратна ли трем сумма его цифр.
2*. Определить, является ли заданное шестизначное число счастливым.
(Счастливым называют такое шестизначное число, что сумма его первых трех цифр равна сумме его последних трех цифр).
ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ помогите пожалуйста хотя бы все пункты первого
Гость
Ответ(ы) на вопрос:
Гость1)
var s: string;
p, a: integer;
begin
read(s);
p := strtoint(s[1]) * strtoint(s[2]);
if (p.ToString.Length = 2) then writeln('a)Да')
else writeln('a)Нет');
write('Введите a:');
read(a);
if (a < (strtoint(s[1]) + strtoint(s[2]))) then writeln('б)Да')
else writeln('б)Нет');
if ((strtoint(s[1]) + strtoint(s[2])) mod 3 = 0) then writeln('в)Да')
else writeln('в)Нет');
end.
2)
var s:string;
begin
read(s);
if(s.Length=6)then if (strtoint(s[1])+strtoint(s[2])+strtoint(s[3])= strtoint(s[4])+strtoint(s[5])+strtoint(s[6]))then
write('Да')
else write('Нет');
end.
Не нашли ответ?
Похожие вопросы