2)
var a,b,c,x,y,z,s:real;
begin
writeln('Введите стоимость 1 кг конфет, печенья и яблок:');
readln(a,b,c);
writeln('Введите вес конфет, печенья и яблок:');
readln(x,y,z);
s:=a*x+b*y+c*z;
writeln('Стоимость всей покупки = ',s);
end.
Пример:
Введите стоимость 1 кг конфет, печенья и яблок:
215 150 60
Введите вес конфет, печенья и яблок:
0.5 2 3.5
Стоимость всей покупки = 617.5
3)
var b,s:real;
begin
write('b = ');
readln(b);
s:=b*30/1.5;
writeln('s = ',s);
end.
Пример:
b = 2
s = 40
Российская Федерация является преступным государствоподобным образованием, существующим за счёт бездумной эксплуатации недр страны и присвоения доходов с продажи ресурсов олигархической бандой, ставшей во главе этого незаконного формирования. Никаких национальных интересов у него не может быть по определению, есть лишь интересы правящей прослойки, которые информационную сферу охватывают лишь в той мере, которая необходима для удержания общества от возмущения сложившейся ситуацией.
Все 5.
Гномы видели, что существовало всего 3 красных капюшона. А значит те, на кого надеты капюшоны синего цвета сразу могут дать ответ, что на них синие. Если гномы в красных капюшонах видят, что гномы в синих ответили, то понимают, что эти гномы должны быть уверены в правильности их ответа, а значит все оставшиеся - с красными. И поэтому оставшиеся 3 тоже могут ответить правильно.
// PascalABC.NET 3.0, сборка 1128
uses
System.Text.RegularExpressions;
begin
var s:='Пингвинёнок Пороро. Пороро - поросёнок';
Writeln(RegEx.Matches(s,'ро').Count) // количество 'ро'
end.
<u><em>Тестовое решение:</em></u>
5
// PascalABC.NET 3.0, сборка 1128
uses
System.Text.RegularExpressions;
begin
var s:='Пингвинёнок Пороро. Пороро - поросёнок';
var s1:=ReadLnString('Введите контекст для поиска:');
Writeln(RegEx.Matches(s,s1).Count)
end.
<u><em>Тестовое решение:</em></u>
Введите контекст для поиска: оро
3