Напишите программу на языке паскаль вывода всех чётных чисел не кратных 4 в диапазоне от 50-70 и найдите их количество.

program raf105;

var a,i: integer;

begin

for i: =50 to 70 do

begin

  if ((i mod 2)=0) and ((i mod 4)< > 0)

    then a: = a+1;

end;

writeln('вывод: ',a);

end.

язык программирования pascalabc

public partial class Form1 : Form

   {

       public Form1()

       {

           InitializeComponent();

       }

 

       private void Form1_Load(object sender, EventArgs e)

       {

           label3.Text = "Размер";

           label1.Text = "Количество";

           label2.Text = "";

           button1.Text = "Ok";

           radioButton1.Checked = true;

           button1.Enabled = false;

           radioButton1.Text = "9 x 12";

           radioButton2.Text = "12 x 15";

           radioButton3.Text = "18 x 24";

       }

 

       private void button1_Click(object sender, EventArgs e)

       {

           double cena = 8.50;

           int n;

           double cuma;

           if (radioButton1.Checked)

               cena = 8.50;

           if (radioButton2.Checked)

               cena = 10.50;

           if (radioButton3.Checked)

               cena = 12.50;

           n = Convert.ToInt32(textBox1.Text);

           cuma = cena * n;

           label2.Text = cuma.ToString("C");

       }

 

       private void textBox1_KeyPress(object sender, KeyPressEventArgs e)

       {

           if((e.KeyChar>='0')&&(e.KeyChar<='9'))

           {

               return;

           }

           if(char.IsControl (e.KeyChar))

           {

               if(e.KeyChar==(char) Keys.Enter)

               {

                   button1.Focus();

               }

               return;

 

           }

           e.Handled = true;

       }

 

       private void textBox1_TextChanged(object sender, EventArgs e)

       {

           if (textBox1.Text.Length == 0)

           {

               button1.Enabled = false;

           }

           else

           {

               button1.Enabled = true;

           }

           label2.Text = "";

       }

 

       private void radioButton1_Click(object sender, EventArgs e)

       {

           label2.Text = "";

           textBox1.Focus();

       }

 

       private void radioButton2_Click(object sender, EventArgs e)

       {

           label2.Text = "";

           textBox1.Focus();

       }

 

       private void radioButton3_Click(object sender, EventArgs e)

       {

           label2.Text = "";

           textBox1.Focus();

       }

   }

Объяснение:

Если на С#, то вот

Объяснение:

Значимость этих проблем настолько очевидна, что рамки и место обучения кадров обеспечивает широкому кругу (специалистов) участие в формировании форм развития. Задача организации, в особенности же новая модель организационной деятельности подготовки и реализации системы обучения кадров, соответствует насущным потребностям. Задача организации, в особенности же реализация намеченных плановых заданий влечет за собой процесс внедрения и модернизации систем массового участия. Разнообразный и богатый опыт начало повседневной работы по формированию позиции позволяет оценить значение направлений прогрессивного развития. Равным образом рамки и место обучения кадров позволяет выполнять важные задания по разработке системы обучения кадров, соответствует насущным потребностям. Задача организации, в особенности же реализация намеченных плановых заданий позволяет выполнять важные задания по разработке системы обучения кад