Определить, счастливый ли билетик. с 2 массивов. принцип такой: на билете 6 цифр. если сумма первых трех будет равна сумме следующих трех, то билет-счастливый.
var s: string; i, a, b, c, f: integer; begin writeln('Номер билета?'); readln(s); for i := 1 to 3 do begin val(s[i], a, f); b := b + a; end; for i := 4 to 6 do begin val(s[i], a, f); c := c + a; end; if c = b then writeln('Билет счастливый!') ; else writeln('Билет НЕ счастливый!'); readln ; end. Вроде так
Program yeah; var a,b,c,d,n:integer; begin writeln('введите число.(0-юноша,1-девушка).'); readln(n); if n=0 then begin writeln('введите вес'); readln(a); writeln('введите рост'); readln(b); if b=110 then begin if a<=b then writeln('юноша принят.'); end; if a>b then writeln('не подходит по весу.'); if b<>110 then writeln('не подходит по росту.'); end; if n=1 then begin writeln('введите вес'); readln(a); writeln('введите рост'); readln(b); if b=115 then begin if a<=b then writeln('девушка принята.'); end; if a>b then writeln('не подходит по весу.'); if b<>115 then writeln('не подходит по росту.'); end; end.
Program z3; var A:array[1..3] of string; var B:array[1..3] of string; i,k:byte; begin writeln('Ввод названий газет: '); for i:=1 to 3 do begin write('[',i,']');readln(A[i]); end; writeln('Ввод подписчиков: '); for i:=1 to 3 do begin write('[',i,']'); readln(B[i]); end;
for i:=1 to 3 do begin if (A[i]='правда') and (B[i]= 'петров') then begin k:=i; writeln('Да, Петров выписывает газету ',A[i]); end; end; end.
Ввод названий газет: [1]Книга [2]Правда [3]Вера Ввод подписчиков: [1]Библиотекарь [2]Петров [3]Гундяев Да, Петров выписывает газету Правда
s: string;
i, a, b, c, f: integer;
begin
writeln('Номер билета?');
readln(s);
for i := 1 to 3 do
begin
val(s[i], a, f);
b := b + a;
end;
for i := 4 to 6 do
begin
val(s[i], a, f);
c := c + a;
end;
if c = b then writeln('Билет счастливый!') ;
else writeln('Билет НЕ счастливый!');
readln ;
end.
Вроде так