| ДЕЙСТВИЕ | ПРИЗНАКИ |
________________________________________________________________________
| Вырасти | Рост,возраст,время |
________________________________________________________________________
| Согреть | Температура |
________________________________________________________________________
| Покрасить | Цвет |
________________________________________________________________________
| Проехать | Расстояние,скорость|
________________________________________________________________________
Надеюсь, что так)
По крайней мере нас на информатике вот так гоняли.
rghost.**ru/68dDLdlX4-звёздочки сотри)
Вот так
1.
var a,b:string;c:integer;
begin
readln (a);
b:='a';
c:=pos(b,a);
if c<>0 then writeln ('Есть буква а') else writeln ('Нет буквы а');
end.
Если считать, что больные продолжают ходить в школу, заражая каждый день людей, и при этом они не выздоравливают через 7 дней, то так:
var vsego, boleet,den:integer;
begin
writeln('Сколько всего человек: ');
Readln(vsego);
boleet:=1;
while boleet<vsego do begin
den:=den+1;
boleet:=boleet*4+boleet;
writeln('День ',den, ' - заразились и болеют уже ', boleet, ' человек');
end;
writeln('Всего учеников: ', vsego, ', Через ',den, ' дней заболеют ', boleet, ' учеников (если бы их было столько), но т.к. их столько нет, да и школу бы всё равно на карантин закрыли, то будем считать, что заболеют все ', vsego);
end.
