#include
using namespace std;
const int n = 6;
int min, max,srednee;
int main()
{
int arr[n];
min = 15001;
max = -1;
for (int i = 0; i < n; i++)
{
cin > > arr[i];
}
for (int i = 0; i < n; i++)
{
if (arr[i] % 2 == 0)
{
if (arr[i] < min)
{
min = arr[i];
}
if (arr[i] > max)
{
max = arr[i];
}
}
}
srednee = (min + max) / 2;
for (int i = 0; i < n; i++)
{
arr[i] = arr[i] - srednee;
cout < < arr[i] < < endl;
}
return 0;
}
program raf105;
var a,sum: integer;
begin
writeln('вводите числа по очереди');
writeln('чтобы закончить введите 0');
repeat
readln(a);
sum+= a;
until a=0;
writeln('сумма: ',sum);
end.
2.program raf105;
var
s: string;
i,k,j: integer;
poli: boolean;
begin
poli: = true;
write('введите слово: ');
readln(s);
s: = lowercase(s);
k: = length(s) div 2;
j: = k*2+1;
if (length(s) mod 2)< > 0
then j+= 1;
for i: =1 to k do
begin
j-=1;
if poli
then poli: = s[i] = s[j];
end;
if poli
then writeln('слово - палиндром')
else writeln('слово - не палиндром');
end.
3.
program raf105;
var a: array[1..10] of integer;
x,i: integer;
begin
writeln('вводите 10 чисел по очереди');
for i: =1 to 10 do
readln(a[i]);
write('введите искомое число: ');
readln(x);
write('индексы элементов: ');
for i: =1 to 10 do
if a[i] = x
then write(i,' ');
end.
4.program raf105;
var a: integer;
begin
write('введите номер дня недели: ');
readln(a);
case a of
1: writeln('это понедельник');
2: writeln('это вторник');
3: writeln('это среда');
4: writeln('это четверг');
5: writeln('это пятница');
6: writeln('это суббота');
7: writeln('это воскресенье');
end;
end.
5.program raf105;
var a: array[1..100] of integer;
i,o,x: integer;
begin
writeln('вводите числа по очереди');
writeln('чтобы закончить введите 0');
repeat
o+= 1;
readln(a[o]);
until a[o]=0;
o-= 1;
writeln('введённые числа в обратном порядке: ');
for i: =o downto 1 do
writeln(a[i]);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Нарисуй фигуры так чтобы изменилось 3 признака имеем один синий квадрат и один синий круг