Чем компьютер вреден
вреден он тем что многие сейчас 1\3 своей жизни люди проводят за компьютером,телефоном,ноутбуков,етим они гробят себе зрение и осанку лучше выйти на улицуи погулять гуляйте почаще
а хорошие качества есть мы можем найти полезную информацыю .
раньше люди жили без компьютеров и обходились без него но сейчас 21 век и все привыкли сидеть за компомно хотябы 1 в день проыетривайтесь на улице и делайте зарядку глаз
Внимание! Если программа не работает, обновите версию Pascal !
begin
var mas:=ArrRandom(15,0,10); mas.Println;
mas.Select((v,i)-> v =0 ? i*i:v).Println;
end.
Program A;
uses crt;
<span>var </span>
<span>s: string; </span>
<span>k,j,f: integer; </span>
<span>ch: char; </span>
<span>begin </span>
<span>read(S); </span>
<span>f:=0; </span>
<span>for k:=1 to length(s) do </span>
<span>for j:=1 to length(s) do </span>
<span>if ((s[k]=s[j]) and (k<>j)) then begin f:=1; ch:=s[k]; end; </span>
<span>if f=1 then Writeln('YES - ',ch) else write('NO'); </span>
<span>readln; </span>
<span>End.</span>
<span>примеры систем,имеющих одинаковый состав (одинаковые элементы),но разную функцию -алмаз,графит,алмаз</span>
Входами (системы).........