Кузнецов
?>

1)написать условие проверки целого числа n, что оно не больше 32 и не делится на 3 или отрицательное. 2)написать условие проверки целого числа n, что оно четное или 500 > n > 400. 3)написать условие проверки натурального числа n, что оно трехзначно и оканчивается на 9. 4)написать условие проверки целого числа n, что оно 345 < =n< 543 или кратно 7. 5)написать условие проверки числа n, что оно кратно 3 или заканчивается на 0. 6)написать условие проверки числа n, что оно является четным и количество десятков в нем больше 5. 7)написать условие проверки числа n, что оно является нечетным и трехзначным. 8)даны два целых числа а и b. написать условие для проверки того, что тысячи числа а больше десятков тысяч числа b. 9)даны два целых числа а и b. написать условие для проверки того, что сотни числа а - четное число и число b нечетное число. 10)даны два целых числа а и b. написать условие для проверки того, что остаток от деления на 8 числа а больше 4, а остаток от деления числа b на 12 меньше 5. 11)даны два целых числа а и b. написать условие для проверки того, что среди чисел а и b нет кратных 3. 12)даны два целых числа а и b. написать условие для проверки того, что произведение чисел а и b кратно 3. 13)даны два целых числа a и b. написать условие для проверки того, что остаток от деления на 23 числа а не больше 14, а остаток от деления числа b на 22 не меньше 15. 14)даны два целых числа а и b. написать условие для проверки того, что число а делится на b или число b делится на а. 15) даны два целых числа а и b. написать условие для проверки того, что оба числа а и b заканчиваются на 6.

Информатика

Ответы

muziumednogorsk
Const c: array [1..10] of integer = (-7,3,0,2,-1,4,8,-9,1,6); var b,d: array [1..10] of integer;       p,k,max,i,j,tmp: integer; begin   p: =1;   for i: =1 to 10 do     if c[i] > 0 then p: =p*c[i];   k: =0;   for i: =1 to 10 do     if c[i] < 0 then inc(k);   d: =c;   max: =d[1];   for i: =2 to 10 do     if c[i] > max then max: =c[i];   writeln ('max: ',max);   writeln ('kol-vo otriz. elementov: ',k);   writeln ('proizvedenie: ',p);   for i: =1 to 10 do     if c[i] > = 0 then b[i]: =c[i]+10 else       if c[i] < 0 then b[i]: =c[i]*c[i];   writeln ('new massiv: ');   for i: =1 to 10 do write (b[i],' ');   writeln;   for i: =1 to 9 do     for j: =i+1 to 10 do       if d[j] > d[i] then         begin           tmp: =d[j];           d[j]: =d[i];           d[i]: =tmp;         end;     for i: =1 to 10 do write (d[i],' ');   writeln; end.
grenysherg2873
1) var s: string;       i: integer;       f: boolean; begin   f: =false;   write ('s = ');   readln(s);   for i: =1 to length(s) div 2 do     if s[i]=s[length(s)-i+1] then f: =true else      begin       f: =false;       break;     end;   if f then writeln ('palindrom') else writeln ('not palindrom');   readln; end. 2) var a,b: integer;       count,j: integer; function palindr (n: integer): boolean; var s: string;       i: integer; begin   palindr: =false;   str (n,s);     for i: =1 to length(s) div 2 do            if s[i]=s[length(s)-i+1] then palindr: =true else           begin             palindr: =false;             break;           end; end; begin   write ('a = ');   readln(a);   write ('b = ');   readln(b);   count: =0;   for j: =a to b do     if palindr(j) then       begin         write (j,' ');         count: =count+1;       end;   writeln;   writeln ('kol-vo palindromov: ',count);   readln; end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

1)написать условие проверки целого числа n, что оно не больше 32 и не делится на 3 или отрицательное. 2)написать условие проверки целого числа n, что оно четное или 500 > n > 400. 3)написать условие проверки натурального числа n, что оно трехзначно и оканчивается на 9. 4)написать условие проверки целого числа n, что оно 345 < =n< 543 или кратно 7. 5)написать условие проверки числа n, что оно кратно 3 или заканчивается на 0. 6)написать условие проверки числа n, что оно является четным и количество десятков в нем больше 5. 7)написать условие проверки числа n, что оно является нечетным и трехзначным. 8)даны два целых числа а и b. написать условие для проверки того, что тысячи числа а больше десятков тысяч числа b. 9)даны два целых числа а и b. написать условие для проверки того, что сотни числа а - четное число и число b нечетное число. 10)даны два целых числа а и b. написать условие для проверки того, что остаток от деления на 8 числа а больше 4, а остаток от деления числа b на 12 меньше 5. 11)даны два целых числа а и b. написать условие для проверки того, что среди чисел а и b нет кратных 3. 12)даны два целых числа а и b. написать условие для проверки того, что произведение чисел а и b кратно 3. 13)даны два целых числа a и b. написать условие для проверки того, что остаток от деления на 23 числа а не больше 14, а остаток от деления числа b на 22 не меньше 15. 14)даны два целых числа а и b. написать условие для проверки того, что число а делится на b или число b делится на а. 15) даны два целых числа а и b. написать условие для проверки того, что оба числа а и b заканчиваются на 6.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Paikina Natalya30
agutty3
VSArsentev
irina-mic
krtatiana69
vasiliiparshin7668
prik-galina7390
Sergei-Gradus199
golovins3
art-03857
kalina1372
АндреевичЮлия
usmanovayanq2626
kosbart28
Inforealto