Как да се преведат в Паскал

usig система; usig System.Collectios.Geeic; usig System.Text; amespace CosoleApplicatio1; foeach (това EIA) Cosole.Wite ( "", д); Cosole.WiteLie (); това Nach = 0, Koech = 0, = maxKoech 0; FO (това аз = 0; и > Това [] а2 = EW го [a.Legth - maxKoech]; FO (това аз = 0, J = 0; и = (Nach + maxKoech)) Cosole.WiteLie ( ""); Cosole.WiteLie ( "\ ISM спектър:"); Cosole.WiteLie ( ""); foeach (това EI а2) Cosole.Wite ( "", д) ; Cosole.WiteLie ( "\\ изпълнено"); Cosole.ReadLie (); >>>

Паскал: как да се преведат в Паскал

Напишете програма в Паскал да се изчисли poformule изразяване (стойността на х, за да изберете сами) √ | х - 2 | + Si (х ^ 2-8) | х-2 | под корена

Артьом от Сочи (Гост) 2 отговор

Напишете програма в Паскал да се изчисли poformule изразяване (стойността на х сами да избират) (√ | х - 2 |) + SI (х ^ 2 - 8)

Напиши задачата от Паскал: въвеждане от клавиатурата числа. Признак за края на входа четен брой. S Намерете дори отрицателен; броят единици до 100

216977 216978 279598

Ярослав К (гост) преди 3 години

Ами да бъда честен тайния смисъл на алгоритъма и разбрах, че е мързел. Но Паскал преведено. Мисля, че най-малко заслужават по-добър отговор.

Var
а: масив [0..19] на цяло число \ u003d (4, 6, 3, 12, 6, 8, 4, 7, 8, 2, 0, 5, 0, 2, 2, 2, 2, 2, 2, 2);
а2: масив от цяло число;
И, Й, нах, Konech, maxKonech. Цяло число;

започвам
аз: \ u003d0;
за аз: \ u003d0 да Дължина (а) -1 задачи
започвам
Writeln (а [Ь]);

Nach: \ u003d 0;
Konech: \ u003d 0;
maxKonech: \ u003d 0;

за аз: \ u003d0 да Дължина (а) -1 задачи
започвам
ако (а [Ь] Mod 2 \ u003d 0), тогава
започвам
Inc (Konech);
край
още
започвам
ако (Konech maxKonech) след това
започвам
maxKonech: \ u003d Konech;
Nach: \ u003d аз - Konech;
приключи;
Konech: \ u003d 0;
приключи;
приключи;

к: \ u003d0;
SetLength (а2, дължина (а) - maxKonech);
за аз: \ u003d0 да Дължина (а) -1 задачи
започвам
ако ((I \ u003c Nach) или (I \ u003d (Nach + maxKonech))) след това
започвам
а2 [й]: \ u003d на [Ь];
Inc (й);
приключи;
приключи;
Writeln (u0027u0027);
Writeln (u0027new спектър: u0027);
Writeln (u0027u0027);

за аз: \ u003d0 да Дължина (а2) -1 задачи
започвам
Writeln (а2 [Ь]);
приключи;
Writeln (u0027u0027);
Writeln (u0027endu0027);

vbcnthw (Гост) преди 3 години