1)var s, k: integer; begin s: =100; for k: 6 to 10do s: =s+2*k; write(s); end.2)var s, k: integer; begins: =120; for k : 10 to 20do s: =s-10; write(s); end.3)var s, k: integer; begin s: =1; for k : 2 to 7do s: =s+100; write(s); end.4)var s, k: integer; begin s: =1; for k : 3 to 8do s: =s*2; write(s); end.5)var s, k: integer; begin s: =1; for k : 1 to 7do s: =s+k; writeln(s); end.6)var u, i : integer; begin u: =30; for k : 1 to 6do u: =u-i; writeln(u); end.7)var k.i: integer; begin k: =4; for i : 1 to 3do k: =i+2*k; writeln(k); end.8)var y, i : integer; begin y: =0; for i : 1 to 3do y: =y+4*i; writeln(y); end.9)var k, i: integer; begin k: =2; for i : 0 to 2do k: =i+3*k; writeln(k); end.10)var s, k: integer; begin s: =2; for k : 1 to 3 do s: =s*s ; write(s); end. 50

ответ:

объяснение: если найти верную программу, то ее тут нету

ответ:

.

есть сайт:

в хроме, опере и сафари открывается всё хорошо. в фаерфоксе и эксплоуере - иероглифы.

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

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

доступа к странице на которую загружается таблица не имею. что можно сделать, чтобы адекватно работало в фаерфоксе и ie?

объяснение:

1. var x: integer; y: real; begin write('введите значение аргумента "x" : '); readln(x); y: =3*cos((5*x)); writeln('значение функции "y" = ',y); readln; end.2.varx,b: integer; beginwrite('введите количество молока, полученного за день, л : '); readln(x); write('введите количество дней : '); readln(b); writeln('количество молока, полученного за заданный промежуток времени = ',x*b); readln; end.   3.vara,b,c: integer; beginwrite('введите двузначное число: '); readln(a); b: =a div 10; c: =a mod 10; writeln(b,#10,c); end.4.varb: integer; a: longint; beginwrite('введите целое число: '); readln(a);   b: =a div 100 mod 100; writeln(b); readln; end.5.  vara,b: integer; beginwrite('введите числа : '); readln(a,b); if a and b mod 2=0 then  writeln(a+b); if a and b mod 2< > 0 then  writeln(a*b); readln; end. {про последнее "иначе", увеличьте все числа в пять раз и выведите результаты" не оба чётные - сумма, если оба - нечётные - то произведение. а если иначе, то число должно быть равно нулю. смысл увеличивать его в пять раз? )}