М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
masha1248
masha1248
22.12.2020 17:31 •  Информатика

Вкакой форме(образной или знаковой) предоставлена информация в следующих примерах: а) таблица оценок в журнале б) рисунок на журнале в) шепот г) вкус еды д) неприятный запах е) дискомфорт ж) знаки на бумаге з) шероховастость поверхности ответьте !

👇
Ответ:
wasuablezko
wasuablezko
22.12.2020

А) Знаковая

Б) Образная

В) Образная

Г) Образная

Д) Образная

Е) Образная

Ж) Знаковая

З) Образная

Знаковая - запись чего-нибудь, а образная рисунок там и тд.

4,7(7 оценок)
Открыть все ответы
Ответ:
anastasiya258
anastasiya258
22.12.2020
Var
  i:integer;
  t:array[1..3,0..31]of real;
begin
write('Введите температуру в декабре по дням: ');
for i:=1 to 31 do
  begin
  readln(t[1,i]);
  t[1,0]:=t[1,0]+t[1,i];
  end;
t[1,0]:=t[1,0]/31;
write('Введите температуру в январе по дням: ');
for i:=1 to 31 do
  begin
  readln(t[2,i]);
  t[2,0]:=t[2,0]+t[2,i];
  end;
t[2,0]:=t[2,0]/31;
write('Введите температуру в феврале по дням: ');
for i:=1 to 28 do
  begin
  readln(t[3,i]);
  t[3,0]:=t[3,0]+t[3,i];
  end;
t[3,0]:=t[3,0]/28;
writeln('Средняя температура в декабре: ',t[1,0]);
writeln('Средняя температура в январе: ',t[2,0]);
writeln('Средняя температура в феврале: ',t[3,0]);
writeln('Средняя температура зимой: ',(t[1,0]+t[2,0]+t[3,0])/3);
end.
4,6(42 оценок)
Ответ:
LidaDay
LidaDay
22.12.2020
Более красивый вариант) 

Program N_1;                         //Название программы
Var a,b,c:integer;                   //Переменные
BEGIN
Writeln('Введите длину и ширину прямоугольника');  //Вывести данную строку
readln(a,b);                         //Считать a и b
if a<b                                 //Если a<b
then begin                          //то найти периметр
c:=(a+b)*2;
Writeln('Пириметр= ',c)       //и вывести его
end
else begin                         //Если a>b
c:=a*b;                             //то найти площадь
writeln('Площадь= ',c)       //и вывести ее.
end;
END.
4,7(87 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ