4 года назад

Назовите лидирующие языки программирования.

Знания

Информатика

1 ответ:

Дарья Фадеева [27]4 года назад

0 0

Javascript, Java, Ruby, PHP, C#, C++,Python.

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

Проблема та-же но осталось всего 1 задание (остальные 4 сделал сам) прошу помощи вот само задание: Напишите программу которая в

Александр Мск

Var a,n: integer; s:longint;
begin
s:=0;
n:=0;
readln(a);
while a<>0 do begin
n:=n +1;
if (a mod 2=0) and (a>0) and (a<=256) then s:=s+a;
readln(a);
end;
writeln(n);
writeln(s)
end.

0 0

4 года назад

Дано масив V(12). Якщо додатних елементів в ньому менше ніж відємних, то замінити в ньому відємні елементи нулями. В протилежн

Forti

Программа на паскале - в прилагаемом файле.

0 0

2 года назад

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

Собери мешок из 8 бусин, все бусины в котором треугольные и все бусины в котором разные. Нарисуй бусины в мешке.

Православный я

Просто нарисовать 8 разноцветных треугольников и обвести их, но все вместе

0 0

4 года назад

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

Объем видеопамяти, занимаемой 32-цветным графическим изображением, 125 Кбайт. Каков размер изображения?

матуня [413]

32 цвета составляют 2 байта. Значит количество точек на изображении 64000

0 0

3 года назад

Help! Срочно! 1)Дано число n. Вывести наименьшую цифру. 2)Дано число n. Вывести фразу:"кол-во четных,больше чем нечетных цифр "

EstrellaMoretti [55]

1)
var n,min:integer;
begin
write('n = ');
readln(n);
min:=9;
while n>0 do
begin
if n mod 10 < min then min:=n mod 10;
n:=n div 10;
end;
writeln('min = ',min);
end.

Пример:
n = 24815
min = 1

2)
var n,k1,k2:integer;
begin
write('n = ');
readln(n);
k1:=0; k2:=0;
while n>0 do
begin
if n mod 2=0 then k1:=k1+1 else k2:=k2+1;
n:=n div 10;
end;
if k1>k2 then writeln('кол-во четных больше чем нечетных цифр')
else if k2>k1 then writeln('кол-во нечетных больше чем четных цифр')
else writeln('количество четных равно количеству нечетных');
end.

Пример:
n = 1234
количество четных равно количеству нечетных

0 0

4 года назад

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