Помогите по информатике 1,2,3 задания из 1 вариснта

Знания

Информатика

1 ответ:

osyst4 года назад

0 0

А где фото-то ничего не понятно.

Читайте также

Найдите минимальное из двух чисел a и b,

ronaldO007

Var a,b,c: integer;
begin clrscr;
write('Надо написать 1 число'); read(a);
write('Надо написать 2 число'); read(b);
if a<b then write('c=',a) else write('c=',b);
end.

0 0

4 года назад

Пожалуйста, помогите!!! Дан массив a из n целых чисел и натуральное число K. Удалить из массива a элемент с номером k

Vikas2113

Var a:array [1..1000] of integer;
k,i,n:integer;
begin
write ('kol-vo elementov v massive=');
readln (n);
write ('k=');readln (k);
writeln ('vvedite massiv');
for i:=1 to n do
readln (a[i]);
write ('massiv: ');
for i:=1 to n do
write (a[i],' ');
if (k<=n) and (k>0) then
for i:=k+1 to n do
a[i-1]:=a[i];
writeln;
write ('massiv posle ydalenija: ');
for i:=1 to n-1 do
write (a[i],' ');
end.

0 0

4 года назад

Как составить чайнворд из 4 сло и из 4 букв с вопросами

kisenaru [28]

Море-орел-лото-очаг-гном-мышь...

0 0

4 года назад

Решите пожалуйста! ввести с клавиатуры n разрядное число, определить является ли произведение всех разрядов четным или нечетным

Ivanova [42]

A = int(input())

mult = 1

while A > 0:

mult = mult * (A % 10)

A //= 10

if(mult % 2 == 1):

print("ODD")

else: print ("EVEN")

0 0

4 года назад

Введи обозначения и построй схему в виде кругов Эйлера.

PostikaVV

Воттак вродибы
удачи!!!!!!!

0 0

4 года назад