Компьютер нужен для хранения информации.
В программе для каждого из трёх введённых слов подсчитывается количество одинаковых букв, стоящих рядом.
Значения переменных после выполнения приведенного фрагмента программы:
slovo='ИНФОРМАТИКА'
n=11 (длина последнего слова)
k=0
На экран будет выведено:
no
yes
no
var k:array[1..10] of integer;
var s:real;
var i:integer;
begin
for i:=1 to 10 do begin
k[i]:=round(10*random+3);
s:=s+k[i];
end;
write('Сумма массива = ', s);
writeln
end.
Должно работать, проверьте.
Txt - Блокнот
doc - Microsoft Word
bmp - <span>Adobe Photoshop
rtf - </span><span>Microsoft Word
arj - WinRAR</span>