Все категории

4 года назад

Помогииите!!!!!!СРРРООООООООЧНО

Знания

Информатика

1 ответ:

Sergey2017 [41]4 года назад

0 0

Паскаль.

Program Primer;
VAR :x; y; z;integer

BEGIN
x=5
y=-6
if x>y then z=x+y
else z=y-x
writeln (z)
END.

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

Укажите результат редактирования текста.Плизз помогите.

AlexKishkin [96]

Оба 3й вариант. первое у вас правильно отмечено

0 0

4 года назад

1. Даны натуральные числа a и b. Определить все числа, кратные a и b, меньшие a*b (a и b должны быть больше 10).На питоне

5SFS ANGLE [63]

A = 5
b = 10
from math import gcd

for i in range(1, a*b+1):
if gcd(a, i) != 1 or gcd(b, i) != 1:
print(i, end=' ')

0 0

2 года назад

Дан массив определить сколько раз в массиве встречается миимальныйн элемент Решить в паскале

SailorVina [14]

var

a:array[1..100] of integer;

x,i,n,min:integer;

begin

readln(n);

x:=1;

read(a[1]);

min:=a[1];

for I:=2 to n do

begin

read(a[i]);

if a[i]<min then

begin

min:=a[i];

x:=1

end;

if a[i]=min then x:=x+1;

end;

writeln(x)

end.

Комментарий: n- количество элементов массива, вводится с клавиатуры в диапазоне от 1 до 100

0 0

4 года назад

Дан одномерный массив. Найти количество различных чисел в этом массиве. Использовать функцию сортировки (C++)

Женюра [229]

Дай своего автора книги,я тебе щас все роскажу

0 0

3 года назад

Нужно составить программу в paskal ABC: Массив содержит n случайных двузначных чисел. Определить сколько в данном массиве четных

Павел Артеминко

Const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(90)+10;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2=0 then k:=k+1;
writeln('Четных чисел: ',k);
writeln('Элементы с нечетными номерами:');
for i:=1 to n do
if i mod 2=1 then write(a[i]:4);
writeln;
end.

Пример:
Массив A:
13 77 63 94 75 87 22 56 59 42
Четных чисел: 4
Элементы с нечетными номерами:
13 63 75 22 59

0 0

1 год назад

Прочитать ещё 2 ответа