Дан массив длиной N (не более 100 элементов), состоящий из случайно выбранных чисел из диапазона от 0 до k, где 0 ≤ k
Найдите в этом массиве длину самого короткого фрагмента, который содержит все числа от от 0 до k.
При значенииях k=2 или k=3 и т. д. Программа должна работать без внесения в неё каких-либо изменений?
var
i:integer;
begin
i:=4; // начальное значение счетчика
while i<=100 do
begin
write(i, ' ');
i:=i+4; // изменяем значение счетчика
end;
readln();
end.
Используйте в качестве аргумента для setState коллбэк, чтобы получить доступ к реальному предыдущему значению.
Это поможет, если у вас возникают проблемы с получение реального предыдущего состояния.
2)Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней, численное значение которых больше либо равно 5.
var s: string;
i, c: integer;
begin
writeln('vvedite stroky');
readln(s);
writeln(s);
c := 0;
for i := 1 to length(s) do
if (s[i] >= '5') and (s[i] <= '9') then
c := c + 1;
writeln(c);
end.
1)Пользователь вводит строку, проверьте является ли она числом, если да, то выведите в ответ это число, иначе сообщите об ошибке.
var s : string;
I, Coder : integer;
begin
writeln('vvedite stroky');
readln(s);
val(s, I, Coder);
if (coder = 0) then
write(s)
else write('osibka v ', coder, ' elemente stroki');
end.
