Задача на тему «Системы счисления» Найти результат арифметических действий над числами в разных системах счисления: А = 148 и В = 10012. Действия произвести в (2)-й с.с. ответ дать в (16)-й с.с. F = (A + B) × (A – B)
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 function Гласные_в_слове(w:string):sequence of char; begin Result:=w.ToCharArray.Where(c->Pos(c,'аеёиоуыэюя')>0).Distinct end;
begin var s:=ReadlnString('>'); var w:=s.ToWords(',','.'); var P:=Гласные_в_слове(w[0]); for var i:=1 to Length(w,0)-1 do begin var Q:=Гласные_в_слове(w[i]); P:=P.InterSect(Q) end; P:=P.Sorted; if P.Count>0 then begin Write('Гласные, которые есть в каждом слове: '); P.Println(',') end else Writeln('Нет ни одной одинаковой гласной во всех словах'); var R:='бвгджзйклмнпрстфхцчшщъь'.ToCharArray.ToList; foreach var c in s do if c in R then R.Remove(c); if R.Count>0 then begin Write('Согласные, которых нет ни в одном слове: '); R.Println(',') end else Writeln('Все согласные присутствуют в тексте') end.
Тестовое решение > фонарик,барахолка,биосфера,волокуша,макароны. Гласные, которые есть в каждом слове: а,о Согласные, которых нет ни в одном слове: г,д,ж,з,й,п,т,ц,ч,щ,ъ,ь
Program asd; Var a,b,c:integer; Begin Writeln('Введите стороны треугольника: '); Write('a='); Readln(a); Write('b='); Readln(b); Write('c='); Readln(c); if (c>a) and (c>b) and (c=sqrt(sqr(a)+sqr(b))) then Writeln('Прямоугольный') else if (a>c) and (a>b) and (a=sqrt(sqr(c)+sqr(b))) then Writeln('Прямоугольный') else if (b>a) and (b>c) and (b=sqrt(sqr(a)+sqr(c))) then Writeln('Прямоугольный') else Writeln('Не прямоугольный'); End. Блок-схема прикреплена ниже. Тестовые значения: Введите стороны треугольника: a=3 b=4 c=5 Прямоугольный
function Гласные_в_слове(w:string):sequence of char;
begin
Result:=w.ToCharArray.Where(c->Pos(c,'аеёиоуыэюя')>0).Distinct
end;
begin
var s:=ReadlnString('>');
var w:=s.ToWords(',','.');
var P:=Гласные_в_слове(w[0]);
for var i:=1 to Length(w,0)-1 do begin
var Q:=Гласные_в_слове(w[i]);
P:=P.InterSect(Q)
end;
P:=P.Sorted;
if P.Count>0 then begin
Write('Гласные, которые есть в каждом слове: ');
P.Println(',')
end
else
Writeln('Нет ни одной одинаковой гласной во всех словах');
var R:='бвгджзйклмнпрстфхцчшщъь'.ToCharArray.ToList;
foreach var c in s do
if c in R then R.Remove(c);
if R.Count>0 then begin
Write('Согласные, которых нет ни в одном слове: ');
R.Println(',')
end
else
Writeln('Все согласные присутствуют в тексте')
end.
Тестовое решение
> фонарик,барахолка,биосфера,волокуша,макароны.
Гласные, которые есть в каждом слове: а,о
Согласные, которых нет ни в одном слове: г,д,ж,з,й,п,т,ц,ч,щ,ъ,ь
Var
a,b,c:integer;
Begin
Writeln('Введите стороны треугольника: ');
Write('a=');
Readln(a);
Write('b=');
Readln(b);
Write('c=');
Readln(c);
if (c>a) and (c>b) and (c=sqrt(sqr(a)+sqr(b))) then Writeln('Прямоугольный') else
if (a>c) and (a>b) and (a=sqrt(sqr(c)+sqr(b))) then Writeln('Прямоугольный') else
if (b>a) and (b>c) and (b=sqrt(sqr(a)+sqr(c))) then Writeln('Прямоугольный') else Writeln('Не прямоугольный');
End.
Блок-схема прикреплена ниже.
Тестовые значения:
Введите стороны треугольника:
a=3
b=4
c=5
Прямоугольный