Задать вопрос Регистрация
Помочь другим

  • определите сумму четырехзначного числа в программме турбо паскаль

Ответы 1

  • 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 uses crt; var a,b,c,d,s1,s2,t:integer; k:boolean; begin   clrscr;   write('Введите четырех значное число: '); readln(t);   a:=t div 1000;   b:=(t mod 1000) div 100;   c:=(t mod 100) div 10;   d:=t mod 10;   s1:=a+b;   s2:=c+d;   k:=s1=s2;   writeln(k);   readln end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years