Костя - Гирлянды из золотой бумаги;
Женя - Гирлянды из серебристой бумаги;
Дима - Хлопушки из золотой бумаги;
Вадим - Шары из красной бумаги.
var breadPrice: real; // цена хлеба
breadCount: byte; // количество хлеба
milkPrice: real; // цена молока
milkCount: byte; // количество молока
sum: real; // сумма покаупки хлеба и молока
-2<=0 -> A = -1+(-2) = -3
-3<0 -> A = (-2)*(-2)/2 = 2
Ответ: 2
CLS
DIM
D(10)
DATA
12,10,11,34,3,3,2,3,4,5
S = 0
FOR i =
1 TO 10
READ
D(i)
IF i / 2
= i \ 2 THEN
ELSE
S = S +
D(i)
END IF
PRINT
D(i),
NEXT i
<span>PRINT
"S="; S
</span>
<span>begin
s1:=copy(s,1,pos(' ',s)-1);{копируем первое слово до пробела}
for i:=pos(' ',s)+1 to length(s) do{смотрим строку дальше}
if (copy(s,i,length(s1))=s1){если набор символов совпадает с этим словом}
and(s[i-1]=' '){и перед ним пробел}
and((s[i+length(s1)]=' '){и за ним пробел}
or(i+length(s1)-1=length(s))) then{или это последнее слово}
begin
k:=1;{фиксируем совпадение}
s2:=s1;{запоминаем слово}
write('Одинаковые слова ',s2);{выводим на экран}
readln;
exit;{выходим из программы, нужно только 1 пару}
end;
delete(s,1,pos(' ',s));{удаляем первое слово, следующее первое}
end;
if k=0 then write('Нет двух одинаковых слов');
readln
end<span>.</span></span>