fork download
copy 
  1. program VvedenniaVyvedennia;
  2.  
  3. { 
  4.   Заняття №20
  5.   Тема: Найпростіші введення та виведення
  6.   Завдання: Розробити застосування, в якому змінній S
  7.   присвоїти суму цифр трьохзначного цілого числа k
  8. }
  9.  
  10. var
  11.   k, a, b, c, s: integer;
  12. begin
  13.   writeln('=== Найпростіші введення та виведення ===');
  14.   writeln;
  15.   writeln('Введіть трьохзначне число k: ');
  16.   readln(k);
  17.  
  18.   { Розкладаємо число на цифри }
  19.   a := k div 100;          { сотні }
  20.   b := (k div 10) mod 10;  { десятки }
  21.   c := k mod 10;           { одиниці }
  22.  
  23.   { Обчислюємо суму }
  24.   s := a + b + c;
  25.  
  26.   writeln;
  27.   writeln('Введене число: ', k);
  28.   writeln('Цифри числа: ', a, ', ', b, ', ', c);
  29.   writeln('Сума цифр: ', s);
  30.   writeln;
  31.   writeln('--- Контрольний приклад ---');
  32.   writeln('123 -> 6');
  33.   writeln('456 -> 15');
  34.   writeln('789 -> 24');
  35. end.
  36.  
Success #stdin #stdout 0s 5316KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
=== Найпростіші введення та виведення ===

Введіть трьохзначне число k: 

Введене число: 0
Цифри числа: 0, 0, 0
Сума цифр: 0

--- Контрольний приклад ---
123 -> 6
456 -> 15
789 -> 24
https://ideone.com/0YWjzr
language:
Pascal (fpc 3.0.4)
created:
14 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!