fork download
copy 
  1. program ola;
  2. var n,a,b,c,sum: integer;
  3. begin
  4. writeln ('Введите трехзначное число');
  5. readln (n);
  6. a :=n div 100;
  7. b :=n mod 100 div 10;
  8. c :=n mod 10;
  9. writeln ('a={0},b={1}, c={2}',a,b,c);
  10. sum:= a + b + c;
  11. if sum>=10 then write('Сумма цифр вузначна') else write('Сумма цифр однозначна');
  12. end.
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Введите трехзначное число
a={0},b={1}, c={2}000
Сумма цифр однозначна
https://ideone.com/TqT2YE
language:
Pascal (fpc 3.0.4)
created:
2 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!