3*2=6128*512*6=393216ъ128+512=640640: 10=6464*6=384кб...Подробнее

program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do  begin  y: =x*h;   writeln('цена за ',h*1000,' грамм ',y,' руб');   h: =h+0.1 ...Подробнее

революция 1917 года и великая отечественная война (1941-1945)...Подробнее

var n, i, k, a: integer; begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end....Подробнее

var a: integer; c1, c2, c3, c4: integer; begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (...Подробнее

разделим монеты на кучки 1002 1002 и одна монета 1-е взвешивание сравниваем 1002 и 1002 если они одинаковые то они настоящие и значит осталось сравнить одну монету с какой-нибудь и...Подробнее

1+2+3-4+5-6=1 1+2+3+4/5+6-7=1 1+2+3-4+5-6+7/8=1...Подробнее

как-то program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins...Подробнее

1. по буквам 2. по слогам 3. по согласным 4. произношение на оборот 5. по 1ой букве в алфавите. н-р весна в-3-я буква, р-18-я в алфавите...Подробнее

у васи флешка желтая. и больше флешки пети. значит, у пети или 4гб или 8гб. егору не понравилась красная, значит красная у пети, а у егора зеленая. суммарное колличество флешок ва...Подробнее