Диапозон A5:D7 содержит 12 ячеек.
Смотри во вложении.
CREATE TABLE mytable
(
id INT(6) AUTO_INCREMENT PRIMARY KEY,
firstname VARCHAR(30) NOT NULL,
lastname VARCHAR(30) NOT NULL,
year INT(4),
midmark INT(1)
<span>)</span>
Первая:
Uses crt;
Var arr:array[1..100] of integer;
n,a,c:integer;
Begin
Write('Сколько чисел вы хотите ввести?-');
Readln(n);
for a:=1 to n do
begin
Write('Введите ',a,' число:');
Readln(arr[a]);
end;c:=0;
For a:=1 to n do
Begin
if (arr[a] mod 2<>0) and (arr[a]<0) then c:=c+1;
end;
Writeln('В последовательности ',c,' нечетных отрицательных чисел.');
<span>end.
Вторая:
Uses crt;
Var arr:array[1..100] of integer;
a,b,c,m:integer;
begin
Write('Сколько чисел вы хотите ввести?-');
Readln(b);
For a:=1 to b do
begin
Write('Введите ',a, ' число:');
Readln(arr[a]);
end;
For a:=1 to b do
Begin
m:=arr[a];
For c:=1 to 2 do
begin
arr[a]:=m*arr[a];
end;end;
For a:=1 to b do
begin
Writeln('Куб ',a,' введенного вами числа равен:',arr[a]);
end;
<span>end.</span>
</span>
Привет!Не знаю может поможет чем-то вот эта ссылка :http://revolution.allbest.ru/audit/00238363_0.html
//PascalABC.NET 3.1 сборка 1239
begin
var x := ReadlnReal('Введите х = ');
if x = 0 then writeln('null')
else begin
if x = 2 then writeln('y = ', sqrt(sqr(x) + 2));
if (x >= 3) and (x <= 6) then writeln('y = ', 3 * sqr(x) - 5);
end;
writeln;
var n := ReadlnInteger('Введите n = ');
writeln('Квадрат числа = ', n * n);
writeln('Последняя цифра квадрата по последней цифре числа = ', sqr(n mod 10) mod 10);
writeln;
var a := ReadlnReal('Введите a = ');
var b := ReadlnReal('Введите b = ');
var c := ReadlnReal('Введите c = ');
writeln('Сумма = ', abs(a + b + c));
end.