Question

Iсоставьте прграммы для решения следующих : 1. дано дузначное число. определить: а) является ли произведение его цифр двузначным числом; б) больше ли числа а сумма его цифр; в) кратна ли трем сумма его цифр. 2*. определить, является ли заданное шестизначное число счастливым. (счастливым называют такое шестизначное число, что сумма его первых трех цифр равна сумме его последних трех цифр). язык программирования паскаль хотя бы все пункты первого

Answer 1

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.