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.
Жақсы жағыда, жаман жағыда бар. Мысалға мектеп те, универде интернетке кіріп шаруаларыңды бітіріп алуға болады. Сымсыз байланыс. Ал жаман жағы
Ғалымдар мұндай шешімге мектеп оқушыларына жүргізілген зерттеуден кейін келді. Олар оқушылар ұйқыға жатқанда жастықтарының астына Wi-Fi желісі қосылған смартфондар салып жүрген. Ертеңінде балалардың денсаулық жағдайын тексеріп, оқушылардан бас ауруды, шаршағандықты байқаған.
Сонымен қатар, үйінде Wi-Fi желісін пайдаланушылар өзінің бөлме өсімдіктеріне назар аударулары тиіс. Өйткені жүргізілген тәжірибе негізінде Wi-Fi желісі өсімдіктерді құртатыны дәлелденді. Қосулы Wi-Fi-модемімен бір бөлмеде тұрған 6 өсімдік түрі 12 күнде-ақ құрғап, сарғая бастаған.
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.
Жақсы жағыда, жаман жағыда бар. Мысалға мектеп те, универде интернетке кіріп шаруаларыңды бітіріп алуға болады. Сымсыз байланыс. Ал жаман жағы
Ғалымдар мұндай шешімге мектеп оқушыларына жүргізілген зерттеуден кейін келді. Олар оқушылар ұйқыға жатқанда жастықтарының астына Wi-Fi желісі қосылған смартфондар салып жүрген. Ертеңінде балалардың денсаулық жағдайын тексеріп, оқушылардан бас ауруды, шаршағандықты байқаған.
Сонымен қатар, үйінде Wi-Fi желісін пайдаланушылар өзінің бөлме өсімдіктеріне назар аударулары тиіс. Өйткені жүргізілген тәжірибе негізінде Wi-Fi желісі өсімдіктерді құртатыны дәлелденді. Қосулы Wi-Fi-модемімен бір бөлмеде тұрған 6 өсімдік түрі 12 күнде-ақ құрғап, сарғая бастаған.