if (a>b) and (a>c) then begin max=a a=c c=max end else if (b>a) and (b>c) then begin max=b b=c c=max end uchunchi hol o'zi bajarilaveradi bo'ladimi shu yozuv
if (a>b) and (a>c) then begin max=a a=c c=max end else if (b>a) and (b>c) then begin max=b b=c c=max end uchunchi hol o'zi bajarilaveradi bo'ladimi shu yozuv
Savol IM 46 B natural son va Probel bilan ajratilgan 5 ta 1000000 dan kichik butun sonlardan iborat A matn berilgan. Matindagi barcha sonlarni yig'indisini B bilan taqqoslovchi dastur tuzing. A ni qanday ajratamiz
a := a+' ';
for i := 1 to length ( a ) do begin
if ( a [ i ] = ' ' ) then begin
val ( tmp, k, ) ;
sum := sum +k; tmp := '';
end else tmp := tmp +a [ i ] ;
end;
readln ( b ) ; readln ( a ) ; for i := 1 to length ( a ) do begin if ( a [ i ] = ' ' ) then begin val ( tmp, k, ) ; sum := sum +k; tmp := ''; end else tmp := tmp +a [ i ] ; end; if b > sum then write ( b katta ) else write ( b kichik ) end.
<font color="red"> Savol IM48 Ekran markaziga aylana chizib, ini i va I, j va J, k va K, m va M klavishlari bosilganda mos ravishda yuqoriga, pastga, chapga, o'nga, quyiga yurgizadigan, Esk klavishi bosilganda ishini tamomlaydigan dastur tuzing.
Hech kim yozmay qo'yibdiku buyerga. Mana yana bosh qotirmoqchi bo'lganlarga misol:
Berilgan mantiqiy ifodaning natijasini aniqlab beruvchi dastur tuzilsin. Mantiqiy ifodada quyidagilar qatnashishi mumkin: “true”(rost) yoki “false”(yolg’on) o’zgarmaslari; “(“, “)” – qavslar; “and”(va), “or”(yoki), va “not”(inkor) mantiqiy amallari; Ifodaning qiymati hisoblanib, kompyuter ekraniga “true” yoki “false” chiqarilishi lozim. Misol: “true and not(not true or not false)” Natija: “true”
Мы используем cookie-файлы, чтобы улучшить сервисы для вас. Если ваш возраст менее 13 лет, настроить cookie-файлы должен ваш законный представитель. Больше информации
Комментарии 77
if (b>a) and (b>c) then begin max=b b=c c=max end
uchunchi hol o'zi bajarilaveradi
bo'ladimi shu yozuv
if (b>a) and (b>c) then begin max=b b=c c=max end
uchunchi hol o'zi bajarilaveradi
bo'ladimi shu yozuv
Xa bulaveradi
A ni qanday ajratamiz
for i := 1 to length ( a ) do begin
if ( a [ i ] = ' ' ) then begin
val ( tmp, k, ) ;
sum := sum +k; tmp := '';
end else tmp := tmp +a [ i ] ;
end;
readln ( a ) ;
for i := 1 to length ( a ) do begin
if ( a [ i ] = ' ' ) then begin
val ( tmp, k, ) ;
sum := sum +k; tmp := '';
end else tmp := tmp +a [ i ] ;
end;
if b > sum then write ( b katta ) else write ( b kichik )
end.
shunaqami? a ni o'zimiz olamizmi?
var key: char ;
begin
key := readkey ;
if ( key = 'i' or key = 'I' ) then ...
end.
a : = a + b ;
b : = a - b ;
a : = a - b;
boshqa o'zgaruvchi keritmasdan a va b ni qiymatini almashtirish
Berilgan mantiqiy ifodaning natijasini aniqlab beruvchi dastur tuzilsin. Mantiqiy ifodada quyidagilar qatnashishi mumkin:
“true”(rost) yoki “false”(yolg’on) o’zgarmaslari;
“(“, “)” – qavslar;
“and”(va), “or”(yoki), va “not”(inkor) mantiqiy amallari;
Ifodaning qiymati hisoblanib, kompyuter ekraniga “true” yoki “false” chiqarilishi lozim.
Misol: “true and not(not true or not false)” Natija: “true”