Question

Решите пожалуйста 5,6,7,8,9. Очень нужно! Заранее СПАСИБО!!!)

Answer 1

Так как у вас не отображаются остальные задания. Сделал проще. Прикрепил исходный файл Pascal к файлу.

aca57232f703b748dbc0ecfd36c8853b.pas

Answer 2

/Задание номер 6

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.

Answer 3

//Задание номер 7

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.

Answer 4

//Задание номер 8

var
l, k: integer;

begin
write('Введите значение L:');
readln(l);
k := l div 100;
write('Количество полных метров: ', k, '.');
end.

Answer 5

//Задание номер 9

var
a, k: integer;

begin
write('Введите размер файла: ');
readln(a);
k := a div 1024;
write('Количество полных килобайтов: ', k, '.');
end.

Answer 6

спасибо