1)
var a,a1,a2:integer;beginreadln(a);a1:=strtoint(copy(inttostr(a),1,1));a2:=strtoint(copy(inttostr(a),2,1));if a1>a2 then write(a1,'>',a2) elsewrite(a1,'<',a2);end.
2)
var a,a1,a2,a3,a4,s:integer;beginreadln(a);a1:=strtoint(copy(inttostr(a),1,1));a2:=strtoint(copy(inttostr(a),2,1));a3:=strtoint(copy(inttostr(a),2,1));a4:=strtoint(copy(inttostr(a),2,1));s:=a1+a2+a3+a4;if s mod 3 = 0 then write('Сумма цифр ',a,'=',s,' - кратно 3')else write('Сумма цифр ',a,'=',s,' - не кратно 3');end.
Самый простой метод: объявить число Pi как константу. Или можно сделать так:
<span>#define _USE_MATH_DEFINES
</span>#include <iostream>
<span>#include <cmath>
#include <math.h></span>
Если я правильно понял, что нужно всегда выигрывать, то вот:
answer = planet
Введенное слово заменяется на заранее правильный ответ.
Они злоумышленники. Их цель навредить человеку или какой нибудь компании,нанеся им материальные убытки в виде поломанной техники или обесценивания товара
