Значение переменных k и s изменяются до тех пор, пока s < 66
Будет выведено значение переменной k. k = 19
Трассировка:
s       k
0      1
4      4
11    7
21    10
34   13
50   16
69   19       ← s > 66. Выводим k.

0 0

4 года назад

Дана строка. Указать те слова, которые содержат хотя бы одну букву k. Составить программу на Паскаль. Заранее спасибо ^_^

Fakhriddin Nizamov

Var s,tmp:string;
i,n:integer;
flag,word:boolean;
function letter (const let:char):boolean;
begin
if ((let>='a') and (let<='z')) or ((let>='A') and (let<='Z')) then letter:=true
else letter:=false;
end;
begin
readln (s);
s:=s+' ';
n:=length(s);
flag:=false;
for i:=1 to n do
begin
if (letter(s[i])) and (not flag) then
begin
  flag:=true;
tmp:='';
word:=false;
end else if (not letter(s[i])) and (flag) then
begin
flag:=false;
if (word) and (not (tmp='')) then writeln (tmp);
end;
if (flag) then
begin
  tmp:=tmp+s[i];
  if (s[i]='k') then word:=true;
end;
end;
end.

0 0

4 года назад

В одномерном массиве А(10) найти значение и индекс наименьшего из положительных элементов

Artyom7575 [1]

Uses crt;
const n=10;
var a: array [1..n] of integer;
x,min:integer;
begin
for x:=1 to n do begin
write('a[',x,']:');
readln(a[x]);
if a[x]>0 then min:=x;
end;
for x:=1 to n do
if (a[x]>0) and (a[x]<a[min]) then min:=x;
writeln;
write('a[',min,']:',a[min]);
<span>end.</span>

0 0

4 года назад

Примерами информационных ресурсов являются: Выберите один ответ: a. CD-ROM b. Видеоинформация c. DVD d. программа

svetlanasemenova [14]

Ответ:

ответ а

Объяснение:

сд ром диск является ресурсом откуда можно вытащить информацию

0 0

4 года назад