Даны ячейки электронной таблицы с адресами da15, d10, ab3000, r5, ah102, ka200, b17000. какие из перечисленных ячеек электронной таблицы не существуют и почему?
Таких адресов для ячеек таблицы быть не может по той причине, что ячейки таблицы имеют адреса вида A1, B4, C443, т.е одну английскую/латинскую (кто как называет) букву и порядковый номер. В вышеуказанных ячейках используется две буквы, а это не соответствует правилам.
Var i,x1,x2:integer; begin for i:=10 to 99 do begin x1:=i mod 10; x2:=i div 10; if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i); end; end.
//1б Var i,x1,x2:integer; begin for i:=10 to 99 do begin x1:=i mod 10; x2:=i div 10; if x1+x2+sqr(x1+x2)=i then writeln(i); end; end.
//2 Var i,n,a,k1,k2:integer; begin readln(n); for i:=1 to n do begin readln(a); if a<1985 then k1:=k1+1; if a>1990 then k2:=k2+1; end; writeln('Родившиеся до 1985:',k1); writeln('Родившиеся после 1990:',k2); end.
var a: array[1..n] of real; i: integer; sum: real;
begin {ввод массива} writeln('Данные массива:'); for i := 1 to n do begin if handsfree then begin a[i] := random(100) - 50; write(a[i], ' '); end else readln(a[i]); end; writeln();
{подсчет суммы и произведения} sum := 0; for i := 1 to n do begin if a[i] > 10 then sum := sum + a[i]; end; writeln('sum = ', sum); end.
Не существуют: DA14, AB3000, AH102, KA200.
Таких адресов для ячеек таблицы быть не может по той причине, что ячейки таблицы имеют адреса вида A1, B4, C443, т.е одну английскую/латинскую (кто как называет) букву и порядковый номер. В вышеуказанных ячейках используется две буквы, а это не соответствует правилам.