В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
olenkadergunov
olenkadergunov
17.06.2020 17:45 •  Информатика

Дан фрагмент электронной таблицы 1 квитанция за потребление элетроэнергии за июль месяц 2011 года

тариф за употребления электроэнергии

9,70

показание на показание на начало 3 конец месяца

итого к оплате

26589 26669 26749 26829

26549 26589 26629 26669

77

1164

В ячейку С4 введена формула =$C$2*(A4-B4)

a) запишите элемент формулы, который содержит относительную ссылку

b) напишите результат который будет выведен в ячейке С7

c) Определите абсолютную ссылку формулы


Дан фрагмент электронной таблицы 1 квитанция за потребление элетроэнергии за июль месяц 2011 годатар

Показать ответ
Ответ:
20Bella04
20Bella04
10.09.2021 17:18
var
s:real;
flag,d,m:integer;
begin     
      s:=10; d:=1;
          while s<=100 do             
               begin                 
                  writeln('d: ',d,'   s: ',s);  {эта строка не обязательна, выводит на экран ежедневный пробег, как бы для контроля}         
                      s:=s+s*0.1;                   
                      d:=d+1;                       
                            if s<20 then                           
                                  flag:=d;             
                end;
      writeln('> 20 km :', flag+1,'    day');
      writeln('>100 km : ',d);
end.
0,0(0 оценок)
Ответ:
ShiroDark
ShiroDark
10.09.2021 17:18
Var b,c:boolean;
a:integer;
begin
readln(a);
writeln(not odd(a));
if a mod 10 = 7 then b:=true;
writeln(b);
writeln(not odd(a mod 10));
end.

var r,a:integer;
begin
read(r,a);
if a*a>pi*r*r then writeln('Square')
else if a*a<pi*r*r then writeln('Circle')
else writeln('Equal');
end.

var m1,m2,v1,v2:integer;
begin
read(m1,v1,m2,v2);
if m1/v1>m2/v2 then writeln('p1>p2')
else if m1/m2<m2/v2 then writeln('p1<p2')
else writeln('p1=p2');
end.

var a,b:real;
begin
read(a,b);
b*=0.45;
if a>b then writeln(b)
else if a<b then writeln(a)
else writeln('Equal');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота