Var x,s:integer; (x*30/100)- расчёт процентов
begin
x:=8000;
s:=x+x+(x*30/100);
writeln ('s=',s);
end,
Вот, сначала ввести числа Анны и Бориса, а потом кол-во бросков =)
var x, a, b, k, i, wa, wb: integer;
begin
readln(a, b);
readln(k);
for i := 1 to k do
begin
x := random(5) + 1;
writeln(x);
if ((abs(a - x) > abs(b - x))) then wa := wa + 1;
if ((abs(a - x) < abs(b - x))) then wb := wb + 1;
end;
if (wa > wb) then writeln('Ann win!')
else
if (wb > wa) then writeln('Boris win!')
else
writeln('No win;)');
<span> writeln(wa, ' - ', wb);
</span>end.
<span>Как называется общая часть имени у группы компьютеров в сети Интернет
ДОМЕН</span>
#include <iostream>
#include <string>
using namespace std;
int main()
{
string st;
cout <<"Введите строку; ";
getline(cin, st);
for(auto it=st.begin(); it!=st.end(); ++it)
{
switch(*it)
{
case 'a': { *it='b'; break; }
case 'b': { *it='a'; break; }
case 'A': { *it='B'; break; }
case 'B': { *it='A'; break; }
}
}
cout <<"Измененная строка: " <<st << endl;
return 0;
}
Результат работы программы на скриншоте.