Відомі порядкові номери і енергетичні потужності N підприємств галузі промисловості. Визначте порядковий номер підприємства з найбільшою енергетичною потужністю.
PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018 Внимание! Если программа не работает, обновите версию!
type tТовар=record Название:string[32]; Цена:real; Количество:real; // может быть в килограммах или тоннах Поставщик:string[32] end;
begin var b:tТовар; var f:file of tТовар; // создаем (или чистим), а затем заполняем файл Rewrite(f,'Товары.typ'); loop ReadlnInteger('Количество товаров:') do begin Writeln('Введите информацию по очередному товару'); b.Название:=ReadlnString('Название:'); (b.Цена,b.Количество):=ReadlnReal2('Цена товара и его количество:'); b.Поставщик:=ReadlnString('Поставщик:'); Write(f,b) end; f.Close; // работаем с файлом Reset(f); var nf:=Trim(ReadlnString('Какой поставщик интересует?')); while not eof(f) do begin Read(f,b); if Trim(b.Поставщик)=nf then Println(b.Название,b.Цена,b.Количество) end; f.Close end.
using System;
using System.Collections.Generic;
using System.Linq;
namespace Help
{
class MainClass
{
public static void Main(string[] args)
{
int day = 1;
double mass = 50;
double changing = 1.2;
while(mass < 120)
{
mass *= changing;
day++;
}
Console.WriteLine($"В {day} день");
}
}
}