program k2game; uses crt; var i,a,n:integer; begin textbackground(14); clrscr; gotoxy(33,2); textcolor(4); writeln('Игра "Угадай число!" '); delay(400); textcolor(5); gotoxy(23,4); writeln('1. Компьютер загадывает число от 0 до 9.'); delay(840); textcolor(5); gotoxy(23,5); writeln('2. Ваша задача - угадать это число!'); delay(840); textcolor(5); gotoxy(23,6); writeln('3. Не забывайте, что у вас всего две попытки!'); delay(640); textcolor(5); gotoxy(23,7); writeln('4. Если же вы ошиблись, то компьютер даст вам подсказку.');
randomize; a:=random(10); n:=0; textcolor(0); repeat gotoxy(23,9); введите число.'); gotoxy(23,10); readln(i); if (i <> a) then begin n:=n+1; gotoxy(23,11); if (i>a) then writeln('Подсказка: Загаданное число меньше.') else writeln('Подсказка: Загаданное число больше.') end; until ((i=a) or (n=2));
gotoxy(23,13); textcolor(2); if (i=a) then writeln('Поздравляю! Вы выйграли!') Else writeln('К сожалению,н
// PascalABC.NET 3.0, сборка 1076 begin var n:=ReadInteger('Число элементов массива='); var a:=ArrRandom(n,-25,25); Write('Исходный массив: '); a.Println; var k:=a.Where(x->sqr(x)>sqr(a[0])).Count; if k>0 then Writeln ('Найдено ',k,' элементов, квадрат которых больше квадрата первого') else Writeln ('Нет ни одного элемента, квадрат которого больше квадрата первого') end.
Тестовое решение: Число элементов массива=15 Исходный массив: 11 12 -11 -3 -16 -22 22 4 -4 -1 -16 -9 -19 4 16 Найдено 7 элементов, квадрат которых больше квадрата первого
Вот моя игра . Угадай число.
program k2game;
uses crt;
var i,a,n:integer;
begin
textbackground(14);
clrscr;
gotoxy(33,2);
textcolor(4);
writeln('Игра "Угадай число!" ');
delay(400);
textcolor(5);
gotoxy(23,4);
writeln('1. Компьютер загадывает число от 0 до 9.');
delay(840);
textcolor(5);
gotoxy(23,5);
writeln('2. Ваша задача - угадать это число!');
delay(840);
textcolor(5);
gotoxy(23,6);
writeln('3. Не забывайте, что у вас всего две попытки!');
delay(640);
textcolor(5);
gotoxy(23,7);
writeln('4. Если же вы ошиблись, то компьютер даст вам подсказку.');
randomize;
a:=random(10);
n:=0;
textcolor(0);
repeat
gotoxy(23,9);
введите число.');
gotoxy(23,10);
readln(i);
if (i <> a) then
begin
n:=n+1;
gotoxy(23,11);
if (i>a) then writeln('Подсказка: Загаданное число меньше.')
else writeln('Подсказка: Загаданное число больше.')
end;
until ((i=a) or (n=2));
gotoxy(23,13);
textcolor(2);
if (i=a) then writeln('Поздравляю! Вы выйграли!')
Else writeln('К сожалению,н
о вы проиграли!');
end.