olyafom1234
?>

Найти количество двузначных элементов массива, сумма цифр которых кратна 5, а затем заменить каждый такой элемент на количество таких элементов. Гарантируется, что хотя бы один такой элемент в массиве есть. В качестве результата необходимо вывести изменённый массив, каждый элемент вводится с новой строчки. Надо заполнить пропускигде многоточие) const N=30 var a array [1..N] of longint; i, j, k longint; begin for i:= 1 to N do readln(a[i]); …...i:=1 to … do if (a[i]>9) and ……… and ((a[i] mod 10+ …...) mod =0) then j:=; for i:=1 to n do (a[i]>9) and ……… and ((a[i] mod 10+ …...) mod =0) then a[i]=; for i:=1 to n do ; end

Информатика

Ответы

Marianna45
//Pascal ABC.NET 3.1 сборка 1219

uses
 system,system.Windows.Forms;

Var
 dat:DateTime;
 myForm:Form;
 myButton:Button;
 myTextBox:TextBox;

 procedure MyButtonClick(sender:Object;e:EventArgs);
  begin {при каждом нажатии на кнопку значение dat обновляется и выводится в текстовое поле}
 dat:=datetime.Now;
 myTextBox.Text:=dat.ToString;
 end;
 begin
  myForm:=new Form; //создание объекта - формы
   myform.Left:=500;
   myform.top:=500;
   myform.AutoSize:=true;
   myform.Width:=300;
   myform.Height:=100;
  myTextBox:=new TextBox; //создание объекта - текстового поля
  myTextBox.Left:=80;
   myTextBox.Top:=40;
   myTextBox.Enabled:=true;
   myTextBox.Width:=105;
   myTextBox.Height:=100;
   myTextBox.MaxLength:=16;
   myTextBox.ReadOnly:=false;
   myTextBox.Visible:=true;
  myButton:=new Button; //создание объекта - кнопки
   myButton.Text:='Now';
   myButton.Left:=80;
   myButton.top:=80;
   myButton.AutoSize:=true;
   myForm.Controls.Add(myButton); //вешаем на форму кнопку и поле
   myForm.Controls.Add(myTextBox);
   myButton.click+=MyButtonClick; //присваиваем событие при нажатии на кнопку
   Application.Run(myForm);
end.
kashihina
1)
#include <iostream>using namespace std;int main(){ setlocale(LC_ALL, "Russian"); int a, b, c; cin >> a >> b >> c; // Вид по сторонам if (a == b && b == c) { cout << "Равносторонний треугольник" << endl; }
else if (a == b || b == c || a == c) { cout << "Равнобедренный треугольник" << endl; }
else if (a^2 == b^2 + c^2 || b ^ 2 == a ^ 2 + c ^ 2 || c ^ 2 == b ^ 2 + a ^ 2) { cout << "Прямоугольный треугольник" << endl; } return 0;}

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Найти количество двузначных элементов массива, сумма цифр которых кратна 5, а затем заменить каждый такой элемент на количество таких элементов. Гарантируется, что хотя бы один такой элемент в массиве есть. В качестве результата необходимо вывести изменённый массив, каждый элемент вводится с новой строчки. Надо заполнить пропускигде многоточие) const N=30 var a array [1..N] of longint; i, j, k longint; begin for i:= 1 to N do readln(a[i]); …...i:=1 to … do if (a[i]>9) and ……… and ((a[i] mod 10+ …...) mod =0) then j:=; for i:=1 to n do (a[i]>9) and ……… and ((a[i] mod 10+ …...) mod =0) then a[i]=; for i:=1 to n do ; end
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

mb9037479491
Yezhov_igor42
Шарабанов
vasenkova1981
ЮрьевичКарпова1564
Диана-Николаевна377
Wlad967857
Nikolai710
fhf3624
info32
boyarinovigor
astahova
barnkim
annanudehead1426
zmlavra