program pr1; uses crt; var mas: array[1..20,1..20] of integer; i,j,v: integer; beginclrscr; for i: =1 to 20 dofor j: =1 to 20 do readln(mas[i,j]); for i: =1 to 20 dofor j: =1 to 2... Подробнее

31= 11111  3=11 5=101 9=1001 17=10001 32=100000 64=1000000 128=10000000... Подробнее

var a: array[1..10]of integer; n1,n2,s,i: integer; beginn1: =1; n2: =1; for i: =1 to 10 do a[i]: =random(10)+1; for i: =1 to 10 do beginif a[i] mod 2=0 then n1: =n1*a[i] else n2: =... Подробнее

моя папка - это хобби, школа, музыка, картинки, видеозаписи.... Подробнее

var d,r: integer; beginwriteln('введите значение r: '); readln(r); d: =2*r; writeln('d = ',d); end.... Подробнее

var n: integer; begin writeln ("введите число n"); read(n); if n> 0 then n: =n+1; if n< 0 then n: =n-1; writeln (n); end.... Подробнее

10000 в 2 сн=0*2+0*2+0*2+0*2+1*2(в 4 степени)=16 в 10 сн... Подробнее

var f,i: integer; begin for i: =1 to 5 do f: =-f*i; write(f); end. вбей в паскаль и он выведет тебе значение f                 &n... Подробнее

N10  =>   ? 2 n10  =>   ? m, где m = 2, 3, 4, 16  ответ  1000011000... Подробнее

в данном случае используется не алфавитный подход к измерению информации (когда считаются символы), а содержательный - когда считаются события. например, когда кидаем монетку у нас... Подробнее

1.   program simple; var a,b: integer; begin   writeln('daite a, b); readln(a,b);   writeln('x = ', b/a); readln; end;   2.   program day; var h... Подробнее

на паскале: var t,x,a: integer; beginwrite('введите значение x: '); read(x); write('введите значение a: '); read(a); t: =(2*sqr(a)-5*a)-3*x; writeln('t = ',t); end.... Подробнее

всего три числа? решу с рандомным   на паскале:     var a,b,c: integer; min, max: integer;   begin clrscr;   a: =random(10)+0; b: =random(10)+0... Подробнее

решение в среде паскаль: var a: array[1..10] of integer; i,s,m: integer; f,t: real; begins: =0; writeln('write marks'); for i: =1 to 10 do beginreadln(a[i]); if i> 1 then be... Подробнее

1) begin - end 2) восстановление - сбой 3) константа - переменная 4) локальная - 5) программист - пользователь... Подробнее

моя папка - это хобби, школа, музыка, картинки, видеозаписи.... Подробнее

uses crt; var   ar: array[1..19]of integer;   i, mul, sum, count, min, mini: integer; begin   count : = 0;   sum : = 0;   mul : = 1;  ... Подробнее

умный в гору не пойдет, умный гору обойдет.... Подробнее

#include< iostream.h>   using namespace std;   int main() {   int a=0,b=1;   for(int i=1; i< =10; i++)   {   if(i%2==0)   a=a+i; &... Подробнее

там ель, клён, сосна, трава.  ты едешь к сестре томы?... Подробнее