<span>№1
1)Леска – зашифрованное слово
№2
1)Коа, аок,
2)кан, ака,
3)нос – единственное слово которое имеет одну расшифровку
№3
1)</span>agte, qte<span>
2)</span>tabg, tlg<span>
3)</span>tbag, tug, tbq<span>
4)</span>gate <span>– единственное слово которое имеет одну расшифровку</span>
При чтении массива вложенный цикл, а переменная одна и та же j ,
for j:=1 to 4 do
begin
for j:=1 to 4 do
замените в первом цикле
for i:=1 to 4 do
Var a,b,c,s:integer;beginread(a);read(b);read(c);s:=a*b*c;writeln('s= ',s);
Если я не ошибаюсь, то 1 символ = 8бит = 1байт
В слове "мысль" 5 символов, значит оно весит 5 байт.
Делаем всё по уму.
1. Два столбца и три рядка размечаем.
— Столбцы: "Год", "Месяц"
— Ряды: "День рождения", "Текущая дата", "Возраст"
2. "День рождения" заполняем вручную, указываем в столбце "Год" - год рождения, в столбце "Месяц" - месяц рождения.
3. Заполняем по формулам текущую дату в ряде "Текущая дата", формула для столбца "Год":
— "=YEAR(TODAY())", функция TODAY() - возращает текущую дату в формате Exel, функция YEAR() - принемает дату формата Exel и возращает год в виде целого числа.
— "=MONTH(TODAY())", работает схоже с предыдущей функцией, но в отличии от нее, определяет из текущей даты - месяц.
4. Заполняем ряд "Возраст", тут указываем формулы для столбца "Год" и "Месяц" простые формулы, где вычетаем из текущей даты - дату рождения.
Превью на картинке и Exel документ с ним же.