Жизненный опыт которого передает родитель ребенку
Uses crt;
Var a: integer;
Begin
Writeln('Введите число:');readln(a);
If a>0 then writeln('Ваше число в квадрате:',power(a,2));
Else writeln('Ваше число в кубе:',power(a,3));
End.
<span>Память является инструментом ХРАНЕНИЯ информации </span>
Вставь чистый DVD диск в привод и запиши образ на диск, потом с диска поставишь игру на комп.. .
<span>Или установи Daemon Tools и монтируй игру в виртуальный привод... начнется установка игры</span>
Это, конечно, ужасный вариант с "много Copy", но если надо ...
Program primer4;
var s:string; i,k:integer;
begin
writeln('подсчет количества глухих согласных в тексте');
writeln('введите текст');
readln(s);
k:=0;
for i:=1 to length(s) do
if (copy(s,i,1)='к')or(copy(s,i,1)='п')or(copy(s,i,1)='с')or
(copy(s,i,1)='т')or(copy(s,i,1)='ф')or(copy(s,i,1)='х')or
(copy(s,i,1)='ц')or(copy(s,i,1)='ч')or(copy(s,i,1)='ш')or(copy(s,i,1)='щ')
then k:=k+1;
writeln(k);
end.
Пример:
подсчет количества глухих согласных в тексте
введите текст
подсчет количества глухих согласных в тексте
17