Информатика

Главная / Информатика

Uses crt;var s:string;n,i:integer;beginreadln(s);n:=length(s);for i:=1 to n doif s[i]=s[n] then delete(s,i,1);writeln(s);end.Эта программа рассчитана на то, что удаляется и последний символ тоже

Читать далее...

Фамилия брюнета Ивана — Антонов, Борисов, Глебов или Дмитриев. Но Антонов и Глебов не женаты, а Иван женат на сестре жены Дмитриева. Поэтому Иван имеет фамилию Борисов. Егоров блондин, то есть его имя — Борис, Дмитрий, Антон или Глеб. Но так как человек, фамилия которого совпадает с именем Егорова, женат, […]

Читать далее...

Program znanijacom;uses crt;varn:string;i,k,r,c,b:integer;num:array [1..4] of char;beginwriteln(‘vvedite celoe chislo <1000:’);read(n);k:=length(n);writeln(‘Cufr v chisle: ‘,k);for i:=1 to k dobeginnum[i]:=n[i];val(num[i],c,b);r:=r+c;end;writeln(‘Ux cymma : ‘,r);end.

Читать далее...

Объект (понятие) может иметь множество признаков, однако не все признаки объекта – равноценны. Нужно отличать основные, существенные признаки объекта, которые составляют саму природу этого объекта и без которых мы не можем его представить. Например, существенным признаком ромба будет то, что ромб есть четырехугольник, стороны которого параллельны и равны между собой. […]

Читать далее...