М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
mayakmaria
mayakmaria
29.11.2020 08:09 •  Информатика

написать программу на прологе !


написать программу на прологе !

👇
Открыть все ответы
Ответ:
Логические знаки не дает вставлять - пишу их союзами и частицами подчеркнутыми.
1)   Число  376 четное и трехзначное.
А = "Число  376 четное"
В = "Число  376 трехзначное"
А и В 
2) Неверно, что Солнце движется вокруг Земли.
А = "Солнце движется вокруг Земли"
Не А
3) Земля имеет форму шара.
А = "Земля имеет форму шара"
А
4) На уроке математики старшеклассники отвечали на вопросы учителя и писали самостоятельную работу.
А = "На уроке математики старшеклассники отвечали на вопросы учителя"
В = "На уроке математики старшеклассники писали самостоятельную работу"
А и В
5) Если сумма цифр числа делится на 3, то число делится  на  3.
А = "Сумма цифр числа делится на 3"
В = "Число делится  на  3"
А стрелка к  В
6) Число  делится на 3 тогда и только тогда, когда сумма цифр числа  делится на 3
А = "Число  делится на 3 "
В = "Сумма цифр числа  делится на 3"
А стрелка в обе стороны В
4,5(5 оценок)
Ответ:
UpGitYT
UpGitYT
29.11.2020
Вот так пойдет?
дан массив. заменить элементы с нечетными номерами на квадраты их номеров.

program tt;uses wincrt;
type  Tmas=array[1..100] of real;
var  d,a:Tmas;  i,j,n:byte;
procedure enter_d(n:byte; var d:Tmas);
begin  
randomize;  
for i:=1 to n do begin    
d[i]:=random(40);    
write(d[i]:0:0,' ');  
end;
writeln;
end;

procedure form_a(n:byte;d:Tmas;var a:Tmas);
begin  
for i:=1 to n do begin    
if odd(i)=true then a[i]:=d[i]/i    
else a[i]:=sqr(d[i]); end;
end;

procedure show_a(a:Tmas);
begin  
for i:=1 to n do
write(a[i]:0:2,' ');
end;
end; 
BEGIN 
ClrScr;  writeln('Введите размер массива: '); 
readln(n); 
enter_d(n,d); 
form_a(n,d,a); 
show_a(a);
END.
4,4(7 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ