Вопросы составишь вот по этой теме на соблюдать дисциплину и порядок, правила техники безопасности и чистоту;занимать рабочие места согласно указаниям преподавателя и не менять их самовольно;заниматься только тем видом деятельности, которую определил преподаватель;немедленно сообщать преподавателю о любых замеченных неисправностях оборудования или неверной работе программного обеспечения;немедленно сообщать преподавателю о любом случае травматизма в кабинете, особенно от электрического тока.
Pascal
var n: integer;
a: 0..9; b: boolean;
begin
write('Введите число N: ');
readln(n);
if n>0 then
begin
write('Введите цифру A: ');
readln(a);
if (a>=0) and (a<=9) then
begin
while (n>1) do
begin
if a=n mod 10 then begin b:=true; break; end else b:=false;
n:=n div 10;
end;
writeln(b);
end else writeln('Введите цифру A от 0 до 9');
end else writeln('Введите другое число, больше 0!');
end.
Шаг 1: I=1, S=S+I=0+1=1
шаг 2: I=2, S=1+2=3
Тело цикла: S:=S+I
S=3
Интернет книга письмо объявление тв справка словарь
<span>var s : string; symb : char; i : longint;
begin
readln(s);
readln(symb);
if pos(symb,s)=0 then writeln('В этом слове нет этого символа')
else begin
i:=0;
while pos(symb,s)<>0 do begin
write(pos(symb,s)+i,' ');
i:=i+1;
Delete(s,pos(symb,s),1);
end;
end;
writeln;
writeln(i);
end.</span>