Горизонталь:
3. свойство
5. род
7. элемент
9. линейка
10. класс
13. ложное
14. запись
15. ноль
16. девять
17. адрес
19. многоуровневый
вертикаль:
1. номер
2. процессор
3. строки
4. значение
6. два
8. алфавитный
11. сканер
16. длина
18. енот
Можно использовать формулу:
<span>=ЕСЛИ(ЕСЛИ(ЕЧЁТН(A1);1;0)+ЕСЛИ(ЕЧЁТН(B1);1;0)+ЕСЛИ(ЕЧЁТН(C1);1;0)=1;ИСТИНА;ЛОЖЬ)</span>
Без блок-схемы.
var i,sum,n: Integer;
begin
sum:=0;
for i:=0 to 4 do
begin
writeln('Введите ',i+1,' число');
readln(n);
sum:=sum+n;
end;
writeln('Ответ: ',sum/5);
end.
Pogram ypr;Var s:string;p:integer;beginreadln(s);p:=pos(' ',s);delete(s,2,p);writeln(s);end.
var
a, b: string;
c: integer;
begin
writeln('Введите первое слово: ');
readln(a);
writeln('Введите второе слово: ');
readln(b);
c := length(a) - length(b);
if c = 0 then writeln('Длины слов равны')
else if c > 0 then writeln('Первое слово длиннее второго на ', c)
else writeln('Второе слово длиннее первого на ', -c)
end.
2)
var a: string;
begin
writeln('Введите предложение: ');
readln(a);
case a[length(a)] of
'.': writeln('Предложение повествовательное');
'!': writeln('Предложение восклицательное');
'?': writeln('Предложение вопросительное');
end;
end.
3)
var
a: string;
t: char;
begin
writeln('Введите слово: ');
readln(a);
t := a[1];
a[1] := a[length(a)];
a[length(a)] := t;
writeln('Полученное слово: ', a)
end.<span> </span>