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

Составить программу , определяющую в каком из данных двух чисел больше четных цифр язык программирования Pascal)

👇
Ответ:
doganbcat999
doganbcat999
29.07.2022

см. объяснения + скрин

Объяснение:

program prog;

var

  num,chetnoe,nechetnoe,ost :integer;

begin

writeln('Vvedite chislo:');

readln(num);

chetnoe:=0;

nechetnoe:=0;

if num=0 then chetnoe:=1 else

begin

 while (num<>0) do begin

  ost:=(num mod 10) mod 2;

  if (ost=0) then chetnoe:=chetnoe+1

  else nechetnoe:=nechetnoe+1;

  num:=num div 10;

 end;

end;

writeln('четныx = ',chetnoe);

writeln('нечетных = ',nechetnoe);

end.


Составить программу , определяющую в каком из данных двух чисел больше четных цифр язык программиров
4,6(35 оценок)
Открыть все ответы
Ответ:
MrXMen
MrXMen
29.07.2022
Unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
 begin
  Image1.Picture.LoadFromFile(OpenDialog1.FileName);
  Image1.Stretch:=true;
  Image1.Left:=form1.Width div 2-image1.Width div 2;
  Image1.top:=form1.Height div 2-image1.Height div 2;
 end
end;

end.
4,4(100 оценок)
Ответ:
Shaurma021
Shaurma021
29.07.2022

Главная Методические указания Блог для фрилансеров Статьи о заработке онлайн Работа для репетиторов Работа для преподавателей Калькуляторы Магазин готовых работ Справочник рефератов МНЕ НУЖНА С ВЫПОЛНЕНИЕМ РАБОТЫ Вы будете перенаправлены на Автор24 Все предметы Информатика Текстовый процессор MS Word Работа с графическими объектами в текстовом процессоре MS Word Статья предоставлена специалистами сервиса Автор24 Автор24 - это сообщество учителей и преподавателей, к которым можно обратиться за с выполнением учебных работ. Заказать написание работы Работа с графическими объектами в текстовом процессоре MS Word 1. Вставка рисунков 2. Коллекция Clip Art 3. Создание графического примитива 4. Форматирование графического объекта 5. Группировка фигур 6. Работа с надписями 7. Объекты SmartArt 8. Объекты WordArt Инструменты для работы с графическими объектами располагаются в группе Иллюстрации вкладки Вставка. Рисунок 1. Группа Иллюстрации Вставка рисунков Инструмент Рисунок позволяет вставить существующий рисунок, сохраненный на компьютере или съемном носителе. При нажатии на кнопку Рисунок откроется окно выбора файла, после чего рисунок будет вставлен в документ. При выделении изображения на ленте появится дополнительная вкладка Формат инструмента Работа с рисунками. Рисунок 2. Вкладка Формат Чтобы документ с рисунком не занимал слишком много памяти, можно воспользоваться инструментом Сжатие группы Изменение. Рисунок 3. Диалоговое окно Сжатие рисунков Для более широких настроек рисунка можно использовать пункт Формат рисунка контекстного меню рисунка. Коллекция Clip Art В коллекции ClipArt хранится подборка картинок текстового редактора. Для вставки клипа используется инструмент Клип. Рисунок 4. Организатор клипов Открывшееся окно похоже на окно Проводника: слева располагается каталог клипов, справа – область просмотра выбранного раздела.

Объяснение:

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