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

Question

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

---

Comments

Язык програмирования?

---

как, гу на английском

---

Паскаль, отлично

---

можно на телефон скачать через Play market

---

в паскаль abc

---

Power Point в компьютере есть

---

В какой программе

---

Я понял

---

ну*

Answer 1

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

Comments

у меня токо одно фото

---

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

var
a, k: integer;

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

---

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

var
l, k: integer;

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

---

//Задание номер 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.

---

/Задание номер 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.

---

Прикрепил исходный файл паскаль

---

Нет.

---

это все задания на одной фото?

---

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

{
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.
}

---

спасибо