Написать ! подсчитать количество цифр в массиве больше 5 4 2 6 7 8 6 + решить : var a: array() of integer; - id63358420211020 от NastyaMeow05 20.10.2021 00:04

Question

Информатика: Написать ! подсчитать количество цифр в массиве больше 5 4 2 6 7 8 6 + решить : var a: array() of integer; b: integer; begin b: =3 a(1): =3; a(2): =4 a(3): =5 a(4): =2 a(5): =3 for (a(i)+1) 3 then b: =b+1 write(b) end.

NastyaMeow05 · Accepted Answer

Не понравилась реализация, переделал, специально сохранив основу предыдущего решения.

const
legal = ['0'..'9', 'A'..'F', 'a'..'f'];

var
s: string;
i: integer;
IsHex: Boolean;

begin
writeln('Введите строку: ');
readln(s);
i := 1;
IsHex := True;
while (i <= length(s)) and IsHex do
begin
    if not (s[i] in legal) then IsHex := False;
    i := i + 1
end;
if isHex then
    writeln('Введенная строка является шестнадцатиричным числом.')
else
    writeln('Введенная строка не является шестнадцатиричным числом.');
end.

Тестовое решение:

Введите строку:
58bfa
Введенная строка является шестнадцатиричным числом.
Введите строку:
1054Acg
Введенная строка не является шестнадцатиричным числом.

Написать ! подсчитать количество цифр в массиве больше 5 4 2 6 7 8 6 + решить : var a: array() of integer; b: integer; begin b: =3 a(1): =3; a(2): =4 a(3): =5 a(4): =2 a(5): =3 for (a(i)+1)> 3 then b: =b+1 write(b) end.

MOGZ ответил