begin readln(n); g:=n; while n<>0 do begin g:= g div 10; k +=1; end;
for i:=1 to k do begin g:= n mod 10; sum:= sum + g; n:=n div 10; end; if sum> 10 then writeln('верно') else ('неверно'); end.
2. var n,i,k,p,h,g:integer;
begin readln(n); g:=n; while n<>0 do begin g:= g div 10; k +=1; end; p:=n mod 10; n:=n div 10; for i:=1 to k-1do begin g:= n mod 10; if g = p then h += 1; n:=n div 10; end; writeln(h); end.
3. const n=10; var
a:array[1..n]of integer; i,sum:integer;
begin a[n]:=0; for i:=1 to 9 do readln(a[i]);
for i:=1 to n do sum:=sum+a[i]; writeln(sum); end.
4. var
n:integer;
begin
readln(n);
while n<>0 do begin n:=n div 10; k += 1; end; if k = 4 then writeln('число четырехзначное') else writeln('число не четырехзначное'); end.
5. var
a:array[1..10]of integer; i:byte;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do begin if a[i] = 2 then writeln('да есть'); break; end; end.
Существенные: а) костюм->брюки->пуговица->нитка Пуговицы могут быть заменены иными застежками. б) автомобиль-> двигатель->поршень Двигатель может быть турбинным, электрическим и т.д. в) компьютер->системный блок->материнская плата->шина->контроллер жестких дисков Не обязательно иметь системный блок и/или жесткий диск (микроконтроллеры, встроенные вычислители) г) телефонная сеть->соединительные провода->узлы->абонентская аппаратура Телефонная сеть может быть беспроводной и с одним абонентом. Например, прямая связь руководителей двух государств. Чтобы не подслушивали))) д) школа->руководство->персонал->актив->учащиеся Тут комментарии излишнни. е) армия->командующий->рядовой->автомат Не обязательно солдата вооружать автоматом. ж) государство->президент->министры->народ При авторитарном режиме (например, военная диктатура) нет ни президента, ни министров.
d. Вставка, Файл