Запишіть виконання наведеного фрагмента програми для табличної величини, значеннями елементів якої є числа: 0,5; -3; 2; -1,6.
sum: =0;
for i: = 1 to 4 do sum: =sum + a[i] * a[i];

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.

клавиши переключения регистров caps lock, shift, ctrl, alt.

думаю, что 19,5 кб = 0,019 мб.

крик