begin u := true; write('введите число: '); read(s); a := s; for i := 1 to length(s) do if not (s[i] in ['0'..'9']) then u := false; if u = false then write('ваше число содержит посторонние символы') else begin c := a[1]; a[1] := a[length(a)]; a[length(a)] := c; write('результат: ', a); end; end. }
var n, sum, mult: integer; begin write('Введите число '); readln(n); sum := 0; mult := 1; while n > 0 do begin sum := sum + n mod 10; mult := mult * (n mod 10); n := n div 10 end; writeln('Сумма равна: ', sum); writeln('Произведение ровно: ', mult); end.
begin u := true; write('введите число: '); read(s); a := s; for i := 1 to length(s) do if not (s[i] in ['0'..'9']) then u := false; if u = false then write('ваше число содержит посторонние символы') else begin c := a[1]; a[1] := a[length(a)]; a[length(a)] := c; write('результат: ', a); end; end.
Answers & Comments
{
var
a, s: string;
i: byte;
u: boolean;
c: char;
begin
u := true;
write('введите число: ');
read(s);
a := s;
for i := 1 to length(s) do
if not (s[i] in ['0'..'9']) then u := false;
if u = false then write('ваше число содержит посторонние символы')
else
begin
c := a[1];
a[1] := a[length(a)];
a[length(a)] := c;
write('результат: ', a);
end;
end.
}
var n, sum, mult: integer;
begin
write('Введите число ');
readln(n);
sum := 0;
mult := 1;
while n > 0 do begin
sum := sum + n mod 10;
mult := mult * (n mod 10);
n := n div 10
end;
writeln('Сумма равна: ', sum);
writeln('Произведение ровно: ', mult);
end.
var
a, s: string;
i: byte;
u: boolean;
c: char;
begin
u := true;
write('введите число: ');
read(s);
a := s;
for i := 1 to length(s) do
if not (s[i] in ['0'..'9']) then u := false;
if u = false then write('ваше число содержит посторонние символы')
else
begin
c := a[1];
a[1] := a[length(a)];
a[length(a)] := c;
write('результат: ', a);
end;
end.
var
l, k: integer;
begin
write('Введите значение L:');
readln(l);
k := l div 100;
write('Количество полных метров: ', k, '.');
end.
var
a, k: integer;
begin
write('Введите размер файла: ');
readln(a);
k := a div 1024;
write('Количество полных килобайтов: ', k, '.');
end.