Изучение языка программирования
Турбо Паскаль
На этом сайте можно: скачать среду программирвания Турбо Пакаль, изучить язык программирования Турбо Паскаль, а так же скачать программы на языке Турбо Паскаль!
Решенные задачи на языке Паскаль
Условие задачи - из списка задач к Госэкзаменам по предмету "Технология разработки программных продуктов".
Задача №22.
Составить программу, которая по заданному положителыюму целому числу n (длинное целое) находит сумму s и произведение p его цифр и выводит их на экран дисплея. |
var n,s,p,e:integer; i:byte; st_n:string; a:word; BEGIN write('Введите целое число: '); readln(n); {получить число} s:=0; p:=1; str(n,st_n); {преобразовать его в строку} for i:=1 to length(st_n) do begin val(st_n[i],a,e); {преобразовать символ строки в цифру} if e<>0 then begin writeln('Ошибка преобразования в число!'); halt; end; s:=s+a; p:=p*a; end; writeln('Сумма цифр введенного числа: ',s); writeln('Произведение цифр введенного числа: ',p); END.* переменная e - код ошибки при переводе из строкового типа в числовой;