Про якого персонажа йде мова На вигляд наче добродушний подумала Аліса але які в нього пазурі та зуби! Варто з ним триматися шанобливо А)Про білого кролика Б) Про Березневого зайця В) Про Чеширського кота
var f:file of integer; i,k:integer; begin Randomize; Assign(f,'in.dat'); Rewrite(f); for i:=1 to 20 do begin k:=Random(99)+1; Write(f,k) end; Close(f) end.
uses Crt; const nn=100; var i,j,k,n:integer; fin,fout:file of integer; a:array[1..nn] of integer; dub:boolean; begin ClrScr; Assign(fin,'in.dat'); Reset(fin); Read(fin,k); if not eof(fin) then begin n:=1; Write(k,' '); a[n]:=k end else n:=0; while (not eof(fin)) and (n<=nn) do begin Read(fin,k); Write(k,' '); j:=1; dub:=false; while (j<=n) and (not dub) do begin dub:=(a[j]=k); Inc(j); end; if not dub then begin Inc(n); a[n]:=k; Inc(j) end end; Writeln; Close(fin); for i:=1 to n do Write(a[i],' '); Writeln; Writeln('n=',n); Assign(fout,'out.dat'); Rewrite(fout); Write(fout,n); Close(fout); ReadKey end.
В качестве бонуса - решение этой же задачи в современной системе программирования PascalABC.NET.
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin var fin,fout:file of integer; Reset(fin,'in.dat'); var k:integer; var a:=new integer[fin.FileSize]; var n:=0; while not eof(fin) do begin Read(fin,k); a[n]:=k; Inc(n) end; Close(fin); a.Println; var b:=a.ToHashSet; b.Println; Writeln('n=',b.Count) end.
И вопрос: для чего давать школьникам, 9/10 из которых никогда не будут программистами, устаревшие и громоздкие, сложные для понимания, написания и отладки системы программирования? Чтобы показать, "как все это сложно"?
1. var x:integer; y:real; begin write('Введите значение аргумента "X" : '); readln(x); y:=3*cos((5*x)); writeln('Значение функции "Y" = ',y); readln; end.
2. var x,b:integer; begin write('Введите количество молока, полученного за день, л : '); readln(x); write('Введите количество дней : '); readln(b); writeln('Количество молока, полученного за заданный промежуток времени = ',x*b); readln; end.
3. var a,b,c:integer; begin write('Введите двузначное число: '); readln(a); b:=a div 10; c:=a mod 10; writeln(b,#10,c); end.
4. var b:integer; a:longint; begin write('Введите целое число: '); readln(a); b:=a div 100 mod 100; writeln(b); readln; end.
5. var a,b:integer; begin write('Введите числа : '); readln(a,b); if a and b mod 2=0 then writeln(a+b); if a and b mod 2<>0 then writeln(a*b); readln; end. {Про последнее "Иначе", увеличьте все числа в пять раз и выведите результаты" не очень понялЕсли оба чётные - сумма, если оба - нечётные - то произведение. А если иначе, то число должно быть равно нулю. Смысл увеличивать его в пять раз?)}
Чеширський кіт
Объяснение:
Пазурі та зуби тільки в котів. Вибачте що так скажу, але читайте текст уважніше. Текст дасть вам підказку