// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(7,1,99); var b:=ArrRandom(7,1,99); var c:=ArrRandom(7,1,2); var k:=0; var r,x:integer; for var i:=0 to 6 do begin Write(a[i]); if c[i]=1 then begin Write(' + '); r:=a[i]+b[i] end else begin Write(' - '); r:=a[i]-b[i] end; Write(b[i],' = '); Read(x); if x=r then k+=1 end; // for Writeln('Верных ответов: ',k) end.
Var m,fm:real; mc,fmc,i:integer; val:array[1..n] of real; begin for i:=1 to n do begin readln(val[i]); if val[i]>0 then begin inc(fmc); fm+=val[i]; end else if val[i]<0 then begin inc(mc); m+=abs(val[i]); end else begin writeln('Funny joke!(no)'); exit; end; end; writeln('Male average=',m/mc); writeln('Female average=',fm/fmc); end.
Pascal:
program strings;
uses crt;
var i,open,close:integer;
a:String;
begin
open:=0;
end:=0;
clrscr;
write('Введите строку: '); readln(a);
for i:=1 to length(a) do
begin
if a[i]='(' then open:=open+1;
if a[i]=')' then close:=close+1;
end;
writeln('Открывающихся скобок: ', open, ' штук');
writeln('Закрывающихся скобок: ', close, ' штук');
readln;
end.