1) Var n,m,max,min:integer; Begin write('Введите число: '); readln(n); min:=9; max:=0; while n>0 do begin m:=n mod 10; if m<min then min:=m; if m>max then max:=m; n:=n div 10; end; writeln('Максимальное число: ',max); writeln('Минимальное число: ',min); End. 2) var i,count: integer; n,s:string; begin writeln('Введите число: '); readln(s); writeln('Введите цифру: '); readln(n); for i:=1 to length(s) do if(s[i]=n)then count:=count+1; writeln('Количество раз, когда встречается цифра = ',count); end.
3. Пайда болған терезеде сәйкесінше қажет ұяшықтар үшiн шартты форматтаудың жасау үшін шартты құрастыру керек. Сосын Формат батырмасын басып керекті форматы жасау, шартты қаннағатындыратын ұяшықтар белгіленген болады.
4. «А также» батырмасын баса 3 шарттарға дейiн сәйкес форматтарды орнатуға болады. Шарттар ішінде мәндерден басқа формулаларды Ақиқат мен жалған мәндерін қайтарып беретін көрсетуге болады. Шарттарды алып тастау үшін «Удалить»батырмасын қолдану керек.
5. Барлық қажет шарттарды және оған сәйкесінше форматтарды ұйымдастырған сон Ok батырмасын басу керек..
Условные форматы можно копировать при кнопки «Формат по образцу» батырмасы арқылы Шартты форматтарды қөшіру мүмкін..
Егер бірнеше көрсетілген шарттардан ақиқатық мәнді бірден аса қабылдайтын болса онда қайсысы бiрiншi шын шартқа сәйкес келетін ,тек қана сол форматты қолданылады. Егер берілген шарттардың бiрi де шынайы мәндi қабылдамаса, онда ұяшықтардың форматы бұрынғы болып қалады.
Логикалық функциялар шартты орындауын тексеру немесе бірнеше шарттарды тексеру үшін арналған. Мысалы Егер (Если) функциясы көрсетілген шартты орындалуын анықтауға мүмкіндік беріп , шарт ақиқат немесе жалған болса бір мәнді қайтарып береді.
ЕГЕР(если), ЖӘНЕ(и), НЕМЕСЕ (или), ЕМЕС (не) логикаклық функияларға жатады.
Егер (ЕСЛИ) функциясы берілген шарт бойынша ақиқат есептелсе бір мәнді қайтарады , ал жалған болса басқа мәнді қайтарып тұрады.
Объяснение:
керек мәлімет осының ішінде дурс болса лаик и потписатся етш
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;
max:=0;
while n>0 do
begin
m:=n mod 10;
if m<min then min:=m;
if m>max then max:=m;
n:=n div 10; end;
writeln('Максимальное число: ',max);
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.
Форматт жасау қажет ұяшықтарын белгілеу.
2. Формат, Условное форматированиетаңдау.
3. Пайда болған терезеде сәйкесінше қажет ұяшықтар үшiн шартты форматтаудың жасау үшін шартты құрастыру керек. Сосын Формат батырмасын басып керекті форматы жасау, шартты қаннағатындыратын ұяшықтар белгіленген болады.
4. «А также» батырмасын баса 3 шарттарға дейiн сәйкес форматтарды орнатуға болады. Шарттар ішінде мәндерден басқа формулаларды Ақиқат мен жалған мәндерін қайтарып беретін көрсетуге болады. Шарттарды алып тастау үшін «Удалить»батырмасын қолдану керек.
5. Барлық қажет шарттарды және оған сәйкесінше форматтарды ұйымдастырған сон Ok батырмасын басу керек..
Условные форматы можно копировать при кнопки «Формат по образцу» батырмасы арқылы Шартты форматтарды қөшіру мүмкін..
Егер бірнеше көрсетілген шарттардан ақиқатық мәнді бірден аса қабылдайтын болса онда қайсысы бiрiншi шын шартқа сәйкес келетін ,тек қана сол форматты қолданылады. Егер берілген шарттардың бiрi де шынайы мәндi қабылдамаса, онда ұяшықтардың форматы бұрынғы болып қалады.
Логикалық функциялар шартты орындауын тексеру немесе бірнеше шарттарды тексеру үшін арналған. Мысалы Егер (Если) функциясы көрсетілген шартты орындалуын анықтауға мүмкіндік беріп , шарт ақиқат немесе жалған болса бір мәнді қайтарып береді.
ЕГЕР(если), ЖӘНЕ(и), НЕМЕСЕ (или), ЕМЕС (не) логикаклық функияларға жатады.
Егер (ЕСЛИ) функциясы берілген шарт бойынша ақиқат есептелсе бір мәнді қайтарады , ал жалған болса басқа мәнді қайтарып тұрады.
Объяснение:
керек мәлімет осының ішінде дурс болса лаик и потписатся етш