Дано трехзначное число. Найти разницу между первой и второй его цифрами.

Question

1. анализ условия задачи
2. математическая модель
3. блок-схема
4. скрин запущенной на выполнение программы с вашими исходными данными
Нужно написать программу в паскаль

kublen · Accepted Answer

примени эту прогу
uses crt;
var n: longint;
i,j:integer;
ch:array[0..9] of integer;
begin
clrscr;
for i:=0 to 9 do ch[i]:=0;
write('ввести число --> ');readln(n);
while n<>0 do
begin
j:=n mod 10;
inc(ch[j]);
n := n div 10;
end;
for i:=0 to 9 do
write(ch[i]:3);
readln;
end.