Program Maz; var a,b:integer; rez:real; p:char;begin write('Введите а = ');readln(a);write('Введите символ: '); readln(p); write('Введите b = '); readln(b); case p of '+': rez:=a+b; '-': rez:=a-b; '*': rez:=a*b; '/': rez:=a/b; end; writeln(a,p,b,'= ',rez); end.
Ну например: (по выделению тепла) Костёр, плита, лампа накаливания. Или (по прочности) корпус косм. ракеты, корпус машины, стеклопакет окне, тарелка, соломка.
1) 32 символа - 1 символ = 5 бит
2) 64 символа - 1 символ=6 бит
3) 5*80= 400 Бит
4) 6*70= 420 Бит
5) 420 Бит - 400 Бит = 20 Бит - разница
Так здесь все легко если n четное то победит первый при любой игре если n нечетное то победит второй
может ты задачу не до конца дослушал
1:
var n:integer;otvet:real;
begin
writeln('Введи n:');
readln(n);
otvet:=1;
for var i:=1 to n do otvet:=otvet*i;
writeln('n!=',otvet);
<span>end.
2:
var n:integer;otvet:real;prostoe:boolean;
begin
writeln('Введи n:');
readln(n);
prostoe:=true;
for var i:=2 to n-1 do if n mod i = 0 then
begin
writeln(n, ' Не простое, делится на ',i);
prostoe:=false;
exit;
end;
if prostoe then writeln(n, ' Простое');
<span>end. </span></span>