+Як змусити комп'ютер думати?
1.Які відкриття були зроблені в області обчислювальної техніки?
2.Які відкриття були зроблені в ХХ ст. в галузі інформатики?
+З якими іменами пов'язане становлення інформатики як науки?
1. Кого називають засновником науки?
2. З іменами яких людей пов'язаний розвиток інформаційно-кому-нікаційних технологій?

x=16

ответ: 16 этажей

паскаль:

uses crt;

var a,b: string; \ а-слово ,b-символ

i: integer; \ переменная для счета

begin

writeln ('слово и символ');

readln (a,b); \\ввод данных

for i: =1to length(a) do if copy (a,i,1)=b then writeln (i); \\копирование по порядку символов слова а   и сравнение каждого с символом b. вывод ответа. или ответов 

readkey; \\если символы в слове повторяются

end.

я так понимаю нужно нарисовать рисунки рыб, карасей и различных животных. множества нужно перекрестить(множество рыб и хищ. животных), так как рыба тоже может быть хищником

program pogoda; var t: real; begin write('t='); readln(t); if t> 10 then writeln ('хорошая погода') else begin ; writeln('плохая погода'); end; end.