// PascalABC.NET 3.2, сборка 1381 от 04.02.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('Вычисление стоимости телефонного разговора'); Writeln('Введите исходные данные'); var Sm:=ReadReal('Стоимость минуты разговора, руб.'); var M:=ReadInteger('Длительность разговора (целое количество минут)'); var Day:=ReadInteger('День недели (1-понедельник, ... 7-воскресенье)'); var S:=Sm*M*(Day in [1..5]?1.0:0.8); Writeln('Стоимость разговора, руб ',s:0:2) end.
Пример Вычисление стоимости телефонного разговора Введите исходные данные Стоимость минуты разговора, руб. 1 Длительность разговора (целое количество минут) 6 День недели (1-понедельник, ... 7-воскресенье) 7 Стоимость разговора, руб 4.80
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
ReadlnString('->').ToWords(Arr(',','.'))
.Select(w->w.Where(c->Pos(c,'аеёиоуыэюя')>0).GroupBy(x->x)
.Select(x->(x.Key,x.Count)).Where(x->x[1]>2)).Where(x->x.Count>0)
.SelectMany(x->x).Select(x->x.Item1).Distinct.OrderBy(x->x)
.Println(',')
end.
Пример
-> дает,корова,молоко,длинношеее,животное,жираф,катамаран.
а,е,о
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Вычисление стоимости телефонного разговора');
Writeln('Введите исходные данные');
var Sm:=ReadReal('Стоимость минуты разговора, руб.');
var M:=ReadInteger('Длительность разговора (целое количество минут)');
var Day:=ReadInteger('День недели (1-понедельник, ... 7-воскресенье)');
var S:=Sm*M*(Day in [1..5]?1.0:0.8);
Writeln('Стоимость разговора, руб ',s:0:2)
end.
Пример
Вычисление стоимости телефонного разговора
Введите исходные данные
Стоимость минуты разговора, руб. 1
Длительность разговора (целое количество минут) 6
День недели (1-понедельник, ... 7-воскресенье) 7
Стоимость разговора, руб 4.80