4 года назад

Pascal abc составить программу через array и for Подсчитайте количество морозных дней (когда температура ниже -20 град.).

1 ответ:

o841334 года назад

0 0

VAR
 i, kol: Integer;
 a: Array [1..20] of Integer;
BEGIN
 For i := 1 to 20 do Read(a[i]);

 For i := 1 to 20 do
 If (a[i] < -20) then Inc(kol);

 Write(kol);
END.

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

Решите примеры по информатике с ответами с решение как решали.

shashin2010 [49]

Смотри во вложении
---------------------------------------------------

0 0

4 года назад

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

Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N - 1, у которых произведение всех цифр совпадает с сумм

Ури21 [51]

Var
N,A,k:integer;
P,S:real;
Begin
Write('N = ');ReadLn(N);
k:=0;
For N:= 1 to N-1 do
    Begin
    A:=N;
    S:=0;
    While A>0 do
       Begin
       S:=S+(A mod 10);
       A:=A div 10;
       End;
    A:=N;
    P:=1;
    While A>0 do
       Begin
       P:=P*(A mod 10);
       A:=A div 10;
       End;
    if S=P then
       Begin
       WriteLn(N);
       k:=k+1;
       End;
    End;
if k=0 then WriteLn('Нет');
End.

0 0

4 года назад

Рассчитайте обьем видеопамяти , необходимой для хранения графического изрбражения , занимаешего весь экран монитора с разрешение

mrkotyra

65 536 - количество цветов в палитре.
65 536 =2^(16) ---> 16 бит - один пиксель
1280 * 1024 * 16 = 2^8 * 5 *2^(10) * 2^4 (бит) = 5*2^(22) (бит)=
=5*2^(19) байт = 5*2^9 Кбайт =2,5* 2^(10) Кбайт = 2,5 Мбайт

0 0

4 года назад

Из четырех внешне одинаковых деталей одна отличается по массе оттрех остальных,однако неизвестно,больше ее масса или меньше.Как

Алекс Шустер

1) Нахождение эталона (детали которые весят одинаково)

сравниваем 2 детали. если они равны, то они эталоны, если не равны, то эталоны те что не взвешивались

2) сравниваем одну деталь из эталонной пары с деталью из нежталонной пары.

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

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

0 0

4 года назад

Наименьшим элементом изображения на графическом экране является ?

cusupphajo

Наименьшим элементом на экране является пиксель

0 0

4 года назад