4 года назад

В течение месяца из менялась температура воздуха. Вывести мин температуру и номер дня. Помогите пожалуйста!

Знания

Информатика

1 ответ:

werrero4 года назад

0 0

Это смотря где ты живешь?

у нас севернее Москвы

14 марта было днем - 9, ночью -21,

30 марта днем было + 8, ночью - 7

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

Какая разница между ПО и собственно программой?

Жанна134 [14]

ПО - это прикладное обеспещивание программ.
А разница между ПО и собственной программой заключается в том что ПО это прикладное, приклодное значет прикладывается к компьютеру, а собственная программа это всеголиш дополнение к компу.

0 0

4 года назад

АЛГОРИТМ С ВЕТВЯЩЕЙСЯ СТРУКТУРОЙ определите,в какой координатной четверти лежит точка А(х,у)

Sakrat [7]

Надо рассмотреть координату точки на предмет больше или меньше нуля x,y
Если x>0 и y > 0 то 1 четверть
Если x<0 и y > 0 то 2 четверть
Если x<0 и y <0 то 3 четверть
Если x>0 и y < 0 то 4 четверть

0 0

4 года назад

При какой температуре ртуть в медицинском термометре станет твёрдой?

Олег Бест

При температуре -39°С ртуть станет твердой.

0 0

4 года назад

В-3 1) Опишите последовательность 10 целых чисел с помощью массива 2) Дан фрагмент программы: For i:=1 to 10 do a[i]:=sqr(i)-i;

Alastar333 [110]

1) не ясен вопрос
2) 0 2 6 12 20 30 42 56 72 90
3) 5
4) for i := 1 to 10 do
    begin
        if (a[i] < 0) then
            a[i] := -1
        else a[i] := 1;
        write(a[i], ' ');
    end;

Код полностью

var
    a: array[1..10] of integer;
    i, k: integer;

begin
    for i := 1 to 10 do
    begin
        a[i] := sqr(i) - i;
        write(a[i], ' ');
    end;
    writeln;

    K := 0;
    for i := 1 to 10 do
        if (a[i] > 10) and (a[i] < 70) then
            k := k + 1;
    Write(k);
    writeln;

    for i := 1 to 10 do
    begin
        if (a[i] < 0) then
            a[i] := -1
        else a[i] := 1;
        write(a[i], ' ');
    end;
end.

0 0

1 год назад

Записать на языке Pascal следующие фразы: а)Даны три числа a,b,c. b)Если x четное или y четное,то с-это их среднее арифметическо

Вишенка0955 [51]

A)
Read(a,b,c)

b)
if (x mod 2 = 0)or(y mod 2 = 0) then c:=(x+y)/2
   else c:= x mod y;

c)
S:=0;
For k:= 1 to 15 do
   S:=S+k;

d)
While x<=100 do
   x:=x*2;

e)
c:=a;
a:=b;
b:=c;

0 0

4 года назад