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

Дан массив из водимых чисел из клавиатуры,массив 3x4(двумерный).найти количество четных элементов массива.исходный массив вывести на экран.(turbo pascal).

👇
Ответ:
gimazova99
gimazova99
02.05.2023
N это элементы массива
Раньше с паскалем не работал, но думаю что верно

for i:=1 to n then begin
if a [i] mod 2 = 0 then
writeIn(a[i]);
end
end;
4,5(98 оценок)
Открыть все ответы
Ответ:
Unicorn789
Unicorn789
02.05.2023

#include <iostream>

#include <clocale>

using namespace std;

int main()

{

   setlocale(LC_ALL,"Russian");

   int k;

   cin >> k;

   int minutes, hours, seconds;

   hours = k / 3600;

   minutes = k % 3600 / 60;

   seconds = k % 3600 % 60;

   cout << "Часов: " << hours << " Минут: " << minutes << " Секунд: " << seconds;

}

Объяснение:

#include <iostream>  // Библиотека ввода-вывода

#include <clocale>  // Библиотека локализации (возможно, будет работать и без нее)

using namespace std;  // Пространство имён

int main()

{

   setlocale(LC_ALL,"Russian");  // Локализация в консоли (возможно, будет работать и без нее)

   int k;  // Переменная, хранящая секунды

   cin >> k;  // Ввод

   int hours, minutes, seconds;  // Переменные для хранения часов, минут и секунд

   hours = k / 3600;  // Часы

   minutes = k % 3600 / 60;  // Минуты

   seconds = k % 3600 % 60;  // Секунды

   cout << "Часов: " << hours << " Минут: " << minutes << " Секунд: " << seconds;

}

4,7(7 оценок)
Ответ:
racinskaulana
racinskaulana
02.05.2023

Program qw;
uses crt;
Type
   Atlas=Record
       country,capital:string;
       area,people:real;
     end;
   ps=File of atlas;
Var f:ps;
    z,t:atlas;
Begin
  assign(f,'1.dat');
  rewrite(f);
    z.country:='Латвия'; z.area:=67.7;
    z.people:=2.6; z.capital:='Рига';
    write(f,z);
    z.country:='Литва'; z.area:=65.2;
    z.people:=3.4; z.capital:='Вильнюс';
    write(f,z);
    z.country:='Польша'; z.area:=313;
    z.people:=34.8; z.capital:='Варшава';
    write(f,z);
    z.country:='Украина'; z.area:=603.7;
    z.people:=50; z.capital:='Киев';
    write(f,z);
    z.country:='Россия'; z.area:=17075.4;
    z.people:=139; z.capital:='Москва';
    write(f,z);
  Close(f);
  assign(f,'1.dat');
  reset(f);
  read(f,t);
  while not(eof(f)) do
    begin
      read(f,z);  
      if t.people/t.area < z.people/z.area then t:=z;
    end;
  close(f);
  writeln('Cтранa с наибольшей плотностью населения:');
  writeln(t.country,' (плотность населения равна ',t.people/t.area:9:6,' млн на кв.км)');
end.

4,4(26 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ