До іть будь ласка Що буде надруковано на екрані після виконання програми: a=6, c=2, b=a+c, print(b*3)
Яка програма призначена для роботи з електронними таблицями?
а) MS Word
б) MS Excel
в) MS Access
г) PowerPoint
Напишіть своє прізвище та ім'я *
Виберіть правильно записані формули:
а) =A1:D1
б) =A1/D1
в) =A1+D1$
Як позначають заголовки стовпців електронної таблиці?
а) 1,2,3…
б) А,Б,В…
в) A,B,C…
г) A1, B2,C3
Які дані можна ввести в клітинку електронної таблиці?
а) Текст
б) Формула
в) Картинка
г) Діаграма
Які типи посилань на адреси клітинок може містити формула?
а) Одномірні
б) Нумеровані
в) Абсолютні
г) Змішані
Сукупність клітинок, які містяться на перетині одного чи кількох стовпців і рядків називається?
а) Аркуш
б) Діапазон клітинок
в) Книга
г) Документ
Вибрати правильне заповнення адреси електронної скриньки
bober [email protected]
[email protected]
[email protected]
Листи, які надіслані з метою реклами називаються:
спам
пошта на вибір
мусор
розсилка
Що означає функія input?
Як називається функція, яка дозволяє присвоювати змінній значення, що вводяться з клавіатури?
Що означає функція print?
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;
max:=0;
while n>0 do
begin
m:=n mod 10;
if m<min then min:=m;
if m>max then max:=m;
n:=n div 10; end;
writeln('Максимальное число: ',max);
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.