Var s:string;
begin
writeln('Как тебя зовут?');
readln(s);
writeln('Здравствуй, ',s,'!');
writeln(s,' пишет программу')
end.
Var s,a:integer;
i:byte;
begin
s:=0;
For i:=1 to 3 do
begin
readln (a); // цена тетради
s:=s+a; // прибавление к общей стоимости тетрадей
end;
writeln (s);
end.
смогли я Вам чем-нибудь помочь?
1 тарелка- 2 апельсина
2 тарелка- 3 апельсина
3 тарелка-4 апельсина
4 тарелка- 5 апельсинов
5 тарелка- 1 апельсин
Var n,i,k:integer;
a:array[1..4096] of integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if (a[i]<=2) and (a[i]>0) then k:=k+a[i];
end;
writeln('Summa = ',k);
<span>end.</span>
Function _Xor (x, y:boolean): boolean;
begin
_Xor:=not(x=y);
end;
var x,y:integer;
begin
write('x y: ');
readln(x,y);
if _Xor(x=0,y=0)
then writeln(1) else writeln(0);
end.
Пример:
x y: 0 1
1