Program Goodluck51_1; uses crt; var n,nt,sum,temp: integer; begin write('Введите 5-значное число '); readln(n); if (n<10000) or (n>99999) then write('Вы ввели неправильное число ') else begin nt:=n; writeln('*** alphaues is thinking... ***'); writeln('*** OK ***'); while n>=1 do begin temp:=n mod 10; sum := sum + temp; n := n div 10; end; writeln('Сумма цифр числа ',nt,' равна ',sum); end; end.
Program Goodluck51__2; uses crt; const n=4; var a:array[1..n] of real; lt:array[1..n] of char; min,max: real; i:integer; begin writeln('*** alphaues is thinking... ***'); writeln('*** OK ***'); lt[1]:='a'; lt[2]:='b'; lt[3]:='c'; lt[4]:='d'; for i:=1 to n do begin write('Введите число ',lt[i],'='); readln(a[i]); end; max:=a[1]; min:=a[1]; writeln('Числа: '); for i:=1 to n do begin if a[i] > max then max:= a[i]; if a[i] < min then min:=a[i]; writeln(lt[i],'=',a[i]); end; writeln('Полусумма наименьшего и наибольшего из них равна',(min+max)/2); end.
Program Goodluck51_3; uses crt; var n,nt,sum,temp: integer; begin write('Введите число '); readln(n); nt:=n; sum:=0; writeln('*** alphaues is thinking... ***'); writeln('*** OK ***'); while n>=1 do begin temp:=n mod 10; sum := sum + temp; n := n div 10; end; writeln('Сумма цифр числа ',nt,' равна ',sum); end.
Program Goodluck51_1;
uses crt;
var
n,nt,sum,temp: integer;
begin
write('Введите 5-значное число ');
readln(n);
if (n<10000) or (n>99999) then write('Вы ввели неправильное число ')
else
begin
nt:=n;
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
while n>=1 do
begin
temp:=n mod 10;
sum := sum + temp;
n := n div 10;
end;
writeln('Сумма цифр числа ',nt,' равна ',sum);
end;
end.
Program Goodluck51__2;
uses crt;
const n=4;
var
a:array[1..n] of real;
lt:array[1..n] of char;
min,max: real;
i:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
lt[1]:='a';
lt[2]:='b';
lt[3]:='c';
lt[4]:='d';
for i:=1 to n do
begin
write('Введите число ',lt[i],'=');
readln(a[i]);
end;
max:=a[1];
min:=a[1];
writeln('Числа: ');
for i:=1 to n do
begin
if a[i] > max then
max:= a[i];
if a[i] < min then
min:=a[i];
writeln(lt[i],'=',a[i]);
end;
writeln('Полусумма наименьшего и наибольшего из них равна',(min+max)/2);
end.
Program Goodluck51_3;
uses crt;
var
n,nt,sum,temp: integer;
begin
write('Введите число ');
readln(n);
nt:=n;
sum:=0;
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
while n>=1 do
begin
temp:=n mod 10;
sum := sum + temp;
n := n div 10;
end;
writeln('Сумма цифр числа ',nt,' равна ',sum);
end.
оператор присваивания :=
оператор ввода read(x1,x2,...,xn) или readln(x1,x2,...,xn)
оператор вывода write(x1,x2,...,xn) или writeln(x1,x2,...,xn)
условный оператор if условие then оператор 1 else оператор 2
оператор варианта case управляющая переменная of
набор значений1: оператор1;
набор значений2: оператор2;
...
набор значенийn: операторN
else
альтернативный оператор
end;
оператор цикла с предусловиями while ... do
оператор цикла с постусловием repeat ... until
оператор цикла for ... do
оператор break осуществляет немедленный выход из циклов repeat, while, for.
оператор continue начинает новую итерацию цикла, даже если предыдущая не была завершина.
оператор exit осуществляет выход из подпрограммы.
оператор halt прекращает выполнение программы и возвращает код завершения в операционную систему.