var s : string; symb : char; i : longint;
begin
readln(s);
readln(symb);
if pos(symb,s)=0 then writeln('В этом слове нет этого символа')
else begin
i:=0;
while pos(symb,s)<>0 do begin
write(pos(symb,s)+i,' ');
i:=i+1;
Delete(s,pos(symb,s),1);
end;
end;
writeln;
writeln(i);
end.
Задал доллару значение 30, евро 60. Вы уж исправите как там сейчас)
<html>
<head>
<script>
function onButtonClick(){
var dollar=30;
var euro=60;
var rub=document.getElementById('lol').value;
alert('В долларах: '+rub*dollar+'\n\rВ евро: '+rub*euro); }
</script>
</head>
<body>
<input type='text' id='lol'>
<button onClick='onButtonClick()'>
Конвертировать
</button>
</body>
</html>
Var a,b,c:integer; l:boolean;
begin
writeln('a, b, c:');
readln(a,b,c);
l:=(a=-b)or(a=-c)or(b=-c);
if l then writeln('Yes') else writeln('No');
end.
Пример:
<span>a, b, c:
5 8 -5
Yes</span>
Зачем нам вещественный массив?
var
i, j, n: integer;
tmp: double;
mas: array[1..101] of double;
begin
randomize;
readln(n);
for i:=1 to n do
begin
mas[i]:= random(-100,107);
end;
for i:=1 to n do
for j:=1 to n do
if mas[j]>mas[j+1] then
begin
tmp:=mas[j];
mas[j]:=mas[j+1];
mas[j+1]:=tmp;
end;
for i:=1 to n do
write(mas[i], ' ');
end.
Ответ:
корова
Объяснение:
НЕ ( ударение на первый слог) И (кол-во букв чётное)
Это высказывание истино, когда истины обе его части
1) корова (ударение на 2 слог, количество букв чётное)
НЕ (0) И (1) = 1 И 1 = 1 (высказывание истино)
2) козёл (ударение на 2 слог, количество букв нечётное)
НЕ (0) И (0) = 1 И 0 = 0 (высказывание ложно)
3) кошка (ударение на 1 слог, количество букв нечётное)
НЕ (1) И (0) = 0 И 0 = 0 (высказывание ложно)
4) конь (ударение на 1 слог, количество букв чётное)
НЕ (1) И (1) = 0 И 1 = 1 (высказывание ложно)