На вході програми маємо два цілих ненульових числа n і m, записаних в одному рядку через пропуск. Програма повинна вивести 1, якщо число n ділиться на m націло, і 0 у протилежному випадку. Вхідні дані: Два цілих числа, записаних в одному рядку.
Вихідні дані: Відповідь до задачі.
Вхідні дані 7 4 Вихідні дані 0
Вхідні дані 8 -2 Вихідні дані 1
Однакова парність
На вході програми маємо два цілих числа n і m, записаних в одному рядку через пропуск. Програма повинна вивести 1, якщо числа n і m мають однакову парність (тобто одночасно парні або одночасно непарні) і 0 у протилежному випадку.
Вхідні дані: Два цілих числа, записаних в одному рядку.
Вихідні дані: Відповідь до задачі.
Вхідні дані 7 4 Вихідні дані 0
Вхідні дані -2 8 Вихідні дані 1
Впорядкування двох
На вході програми маємо два цілих числа a і b, записаних в одному рядку через пропуск. Задані числа потрібно вивести в порядку зростання тобто спочатку менше, а потім більше з них.
Вхідні дані: В єдиному рядку записані через пропуск два цілих числа a і b.
Вихідні дані: В одному рядку спочатку менше, а потім більше з чисел a і b.
Вхідні дані 7 4 Вихідні дані 4 7
Знак числа
Програма повинна прочитати з консолі ціле число та вивести -1, 0 або 1, якщо введене значення від’ємне, нульове і додатне, відповідно.
Вхідні дані: Ціле число.
Вихідні дані: Сігнум заданого числа.
Вхідні дані 7 Вихідні дані 1
Вхідні дані -5 Вихідні дані -1
Вхідні дані 0 Вихідні дані 0
Трицифрове число
Програма повинна прочитати з консолі ціле число N та вивести Ok, якщо число N трицифрове і No у протилежному випадку.
Вхідні дані: Ціле число.
Вихідні дані: Відповідь до задачі.
Вхідні дані 123 Вихідні дані Ok
Вхідні дані -27 Вихідні дані No

👇

Открыть все ответы

Ответ:

agargo228

03.01.2021

1)Program Z1;
Var st:string;
i,j,k:integer;
Begin
k:=ord('A');
For i:=1 to 26 do begin
For j:=1 to i do begin
write(chr(k));
end;
k:=k+1;
end;
end.

2)Program Z2;
Var st:string;
i,c,c1:integer;
Begin
Writeln('Введите строку');
Readln(st);
For i:=1 to length(st) do begin
if st[i]='а' then inc(c);
if st[i]='о' then inc(c1);
end;
if c>c1 then writeln('Да')
else writeln('Нет');
end.

3)Program Z3;
Var st,st1,st2,st3:string;
k,n:integer;
Begin
Writeln('Введите строку');
Readln(st);
Writeln('Введите k');
Readln(k);
n:=length(st);
st1:=copy(st,1,k);
st2:=copy(st,n-k+1,k);
st3:=copy(st,k+1,n-2*k);
st:=st2+st3+st1;
Writeln(st);
end.

4)Program Z4;
Var st,st1,st2:string;
n,i:integer;
Begin
Writeln('Введите строку');
Readln(st);
Writeln('Введите букву для удвоения');
Readln(st1);
n:=length(st);
For i:=1 to n do begin;
if st[i]=st1 then st2:=st2+st[i]+st[i]
else st2:=st2+st[i];
end;
Writeln(st2);
end.

5)Program Z5;
Var st,st1:string;
n,i:integer;
Begin
Writeln('Введите строку');
Readln(st);
n:=length(st);
For i:=1 to n do begin
if (st[i]='ж') or (st[i]='ш') then st1:=st1+st[i]+'и'
else st1:=st1+st[i];
end;
writeln(st1);
end.

6)Program Z6;
Var st,st1:string;
n,i:integer;
Begin
Writeln('Ââåäèòå ñòðîêó');
Readln(st);
n:=length(st);
st:=' '+st+' ';
For i:=1 to n do
if st[i]=' ' then begin delete(st,i+1,1); delete(st,i-1,1);
end;
writeln(st);
end.

(Все программы проверени и откомпелированы на Pascal. NET, Если есть вопросы, пишите.)

4,5(84 оценок)

Ответ: