Var i: integer;
begin
write('введите число ');
readln(i);
writeln('квадрат этого числа= ',I*i);
writeln('куб этого числа= ',power(i,3));
writeln('пятая степень этого числа= ',power(i,5));
end.
(-) - неверное высказывание. (+) - верное.
допустим, что в 1) 1(-), 2(+) ( Вася не первое, Юра второе)
значит:
2) Саша не второе "2 - Юра" => Вася последнее.
3) Иван не второе "2 - Юра" => Гриша третье.
4) Гриша не первое "Гриша - 3" => Юра четвертое.
Но Юра не может быть и на втором и на четвёртом месте.
Вывод: 1) 1(+), 2(-) ( Вася - 1, Юра не 2).
Значит:
2) Вася не последнее "Вася - 1" => Саша - 2.
3) Иван не второе "Саша - 2" => Гриша - 3.
4) Гриша не первое "Гриша - 3" => Юра - 4.
5) Юра четвёртое => Иван не второе.
Ответ: Вася -1, Саша - 2, Гриша - 3, Юра - 4, Иван - 5
// PascalABC.NET 3.0, сборка 1088
begin
var s:=ReadString('Введите текст: ');
var MySet:=s.Where(x->x<>' ').Distinct;
Writeln(MySet)
end.
<em><u>Тестовое решение:</u></em>
Введите текст: this is a test string for my own needs
[t,h,i,s,a,e,r,n,g,f,o,m,y,w,d]
Const a:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var b:integer;
begin
readln(b);
writeln(a[b]);
<span>end.</span>
Напишу программу на Паскале, если нужна на другом языке, можешь удалять.
program ball ;
var
a, b:string ;
c, d, z: integer ;
begin write ( 'введите фамилию, имя и баллы по двум предметам' ) ; read ('a', 'b', c, d)
z:=c+d
if z<30
then writeln ('a', 'b')