Спо информатике 8) диапазон ячеек ms excel правильно указан a) g2-l15 b) 1d: 12k c) б3: ж7 d) d4: f20 10) формула в ячейку электронной таблицы ms excel введена правильно a) =(б1*ж1-а1)^(1/2) b) a1=ex c) y=корень(a1^2+b1^2) d) =(d3+g3)^2-2, 5 14) правильно записанным числом в ячейку ms excel считается a) 5.78 b) -6, 89 c) -9.65 15) функция срзнач находится в категории a) b) логические c) статистические в электронной таблице ms excel имя ячейки образуется a) из имени столбца и номера строки b) из имени столбца c) из имени листа и номера строки d) произвольно 7) изменить ширину столбца можно a) если подвести указатель мыши в любое место границы столбца и растянуть b) только с специальной команды ленты главного меню c) если подвести указатель мыши к границе заголовка столбца и растянуть 2) рабочая книга ms excel может содержать a) 3 рабочих листа b) до 256 рабочих листов c) сколько угодно рабочих листов
Ответы
Program a1;
var a,b: array [1..10] of integer;
n,i,k,sum,c: integer;
begin
Randomize;
For i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:3);
end;
Readln (n);
For i:=1 to 10 do
begin
k:=a[i];
while k>0 do
begin
sum:=sum+(k mod 10);
k:=k div 10;
end;
f (n=sum) then
begin
inc(c);
b[c]:=a[i];
end;
end;
for i:=1 to c do
write(b[i]:2);
end.
var a,b: array [1..10] of integer;
n,i,k,sum,c: integer;
begin
Randomize;
For i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:3);
end;
Readln (n);
For i:=1 to 10 do
begin
k:=a[i];
while k>0 do
begin
sum:=sum+(k mod 10);
k:=k div 10;
end;
f (n=sum) then
begin
inc(c);
b[c]:=a[i];
end;
end;
for i:=1 to c do
write(b[i]:2);
end.
1) Program dasf;
var a,b,i,s: integer;
begin
Writeln('Введите четырёхзначное число');
readln(a);
For i:=1 to 4 do
begin
S:=a mod 10+s;
a:=a div 10
end;
writeln('Сумма цифр четырёхзначного числа:',s);
end.
2)Program sgsgsdfg;
var a,b,c,a1,b1,c1: real;
begin
Writeln('Введите а');
readln(a);
Writeln('Введите b');
readln(b);
Writeln('Введите c');
readln(c);
If (a=b) or (a=c) then a1:=a*a
else a1:=a*2;
If (b=a) or (b=c) then b1:=b*b
else b1:=b*2;
If (c=a) or (c=b) then c1:=c*c
else c1:=c*2;
Writeln('Полученные числа: а=',a1,' b=',b1,' c=',c1);
end.
3) Program afgsdg;
var n,a,b,i: integer;
begin;
Writeln('Введите число');
readln(a);
Writeln('Введите степень');
readln(n);
b:=a;
For i:=2 to n do
a:=a*b;
Writeln('Число ',b,' в степени ',n,' равно ',a);
end.
var a,b,i,s: integer;
begin
Writeln('Введите четырёхзначное число');
readln(a);
For i:=1 to 4 do
begin
S:=a mod 10+s;
a:=a div 10
end;
writeln('Сумма цифр четырёхзначного числа:',s);
end.
2)Program sgsgsdfg;
var a,b,c,a1,b1,c1: real;
begin
Writeln('Введите а');
readln(a);
Writeln('Введите b');
readln(b);
Writeln('Введите c');
readln(c);
If (a=b) or (a=c) then a1:=a*a
else a1:=a*2;
If (b=a) or (b=c) then b1:=b*b
else b1:=b*2;
If (c=a) or (c=b) then c1:=c*c
else c1:=c*2;
Writeln('Полученные числа: а=',a1,' b=',b1,' c=',c1);
end.
3) Program afgsdg;
var n,a,b,i: integer;
begin;
Writeln('Введите число');
readln(a);
Writeln('Введите степень');
readln(n);
b:=a;
For i:=2 to n do
a:=a*b;
Writeln('Число ',b,' в степени ',n,' равно ',a);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Вычислить площадь круга радиус r которого меняется от а до в с шагом h. сделать паскалем
Автор: Ермакова Ирина674
20 символдан тұратын хабар 64 символдық алфавиттік әріптерімен жазылған.Ол қандай ақпарат мөлшерін көрсетеді
Автор: volkovaoksana19806037
Действовали ли 3 закона робототехники в фильме терминатор?
Автор: gnsnodir5001
с заданием на языке CИ (С комментарием
Автор: vikabobkova2010
Какой объем памяти компьютера занимает сообщение повторение- мать учения
Автор: Виталий_Ильназ574
10)d
14)b
15)c
a
7)a тут я не уверен либо a либо c но скорее всего a
2)с