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

Самостоятельная работавариант — 12оформить по плану решения , построить блок-схему и написатьпрограмму вычисления значения выражения, используя операторприсваивания: укажите количество квт электроэнергии, которое было израсходовано зарасчетный месяц и плату за 1 квт электроэнергии. вычислите сумму денег,которую нужно заплатить за электроэнергию.​

Показать ответ
Ответ:
Белыйснег35
Белыйснег35
30.07.2021 12:18
У этого термина существуют и другие значения, см. Ньютон.Исаак НьютонIsaac Newton
Портрет кисти Кнеллера (1689)Дата рождения:25 декабря 1642 (4 января 1643)Место рождения:Вулсторп, Линкольншир,Королевство АнглияДата смерти:20 марта 1727 (31 марта 1727)(84 года)Место смерти:Кенсингтон, Мидлсекс, Англия,Королевство ВеликобританияСтрана: Королевство Англия
 Королевство ВеликобританияНаучная сфера:физика, механика, математика,астрономияАльма-матер:Кембриджский университет(Тринити-колледж)ПодписьИсаак Ньютон на ВикискладеСэр Исаа́к Нью́тон (или Ньюто́н[K 1]) (англ. Sir Isaac Newton, 25 декабря 1642 года — 20 марта 1727 года по юлианскому календарю, действовавшему в Англии до 1752 года; или 4 января 1643 года — 31 марта 1727 года погригорианскому календарю) — английский физик, математик, механик и астроном, один из создателей классической физики. Автор фундаментального труда «Математические начала натуральной философии», в котором он изложил закон всемирного тяготения и три закона механики, ставшие основой классической механики. Разработал дифференциальное и интегральное исчисления, теорию цветаи многие другие математические и физические теории.
0,0(0 оценок)
Ответ:
mila7772
mila7772
02.02.2022 17:05
Где только находят такие задачи О_о ну вот :)

uses crt;
type auto=record
           nom:string;
           sht:integer;
           end; var f,g:text;
     a:array[1..100] of auto;
     s,s1:string;
     n,k,i,j,c,p,r:integer;
     x:auto;
begin
clrscr;
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
read(f,n);
readln(f,s);
readln(f,s);
k:=1;
a[k].nom:=copy(s,1,8);
delete(s,1,9);
val(s,a[k].sht,c);
for i:=2 to n do  
  begin
   readln(f,s);  
s1:=copy(s,1,8);
   delete(s,1,9);
   val(s,r,c);
   p:=0;
   j:=1;
   while(j<=k) and(p=0) do
   if s1=a[j].nom then
    begin
     p:=j;
     a[p].sht:=a[p].sht+r
    end
   else j:=j+1;
   if p=0 then
    begin
     k:=k+1;
     a[k].nom:=s1;
     a[k].sht:=r;
    end;
  end;
 close(f);
 for i:=1 to k-1 do
for j:=i+1 to k do
if a[i].sht<a[j].sht then
  begin
   x:=a[i];
   a[i]:=a[j];
   a[j]:=x;
  end;
 for i:=1 to k do
begin
writeln(g,a[i].nom,' ',a[i].sht);
 writeln(a[i].nom,' ',a[i].sht);
 end;
 close(g);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота