Информатика

Что выведет программа, если в ка­че­стве зна­че­ний пе­ре­мен­ных s и t вво­ди­лись (3,7)?

var s, t: integer;
begin
readln(s);
readln(t);
if (s > 10) or (t > 10)
then writeln(s)
else writeln(t)
end.

Что выведет программа, если в ка­че­стве зна­че­ний пе­ре­мен­ных s и t вво­ди­лись (3,17)?

var s, t: integer;
begin
readln(s);
readln(t);
if (s > 10) and (t > 10)
then writeln(s)
else writeln(t)
end.

1й вариант 7

2й 3

Объяснение:

используется язык pascal

program pr;

var

  mas: array[1..7] of integer;

  i: integer;

begin

writeln('вводим значения в массив');

  for i: =1 to 7 do readln (mas[i]);

writeln('выводим значения из массива');

  for i: =7 downto 1 do writeln(mas[i]);

readln;

end;

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('слово которое хотите вставить',s,7);

writeln (s);

readln;

end.