Ответ:
=ЕСЛИ(И(-5<ЯЧЕЙКА1<5;-5<ЯЧЕЙКА2<5);"да";"нет")
Объяснение:
пишешь вместо ЯЧЕЙКА1 и ЯЧЕЙКА2 индексы нужных ячеек с координатами. вставлять функцию там, где в самом задании написано "да" и "нет".
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(Range(50,180).Average:0:2)
end.
<u>Результат</u>
115.00
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
int main()
{
char str[256];
char* pch;
int index = 0;
int letter;
printf("Введите предложение\n");
while ((letter = getchar()) != '\n')
{
<span> str[index++] = letter;
</span> }
pch = strtok(str, " ,.-");
while (pch != NULL)
{
if(strcmp(pch, "привет"))
printf("%s\n", pch);
pch = strtok(NULL, " ,.-");
}
return 0;
<span>}
</span>
матрица заполняется случайно
программа на pascalabc
Var
max,min,mina,minb,maxa,maxb,a,b,c: integer;
mas: array[1..3,1..3] Of integer;
Begin
writeln('до :');
For a:=1 To 3 Do
For b:=1 To 3 Do
Begin
mas[a,b] := random(100);
If mas[a,b]>max Then
Begin
max := mas[a,b];
maxa := a;
maxb := b;
End;
If (min=0)Or(mas[a,b]<min) Then
Begin
min := mas[a,b];
mina := a;
minb := b;
End;
write(mas[a,b],' ');
End;
c := mas[maxa,maxb];
mas[maxa,maxb] := mas[mina,minb];
mas[mina,minb] := c;
writeln;
writeln('после :');
For a:=1 To 3 Do
For b:=1 To 3 Do
write(mas[a,b],' ');