gaina6678
?>

Нужен шаблон html сайта с 5 страницами(по гиперссылками) чтобы я смог туда свою инфу и картинки вставить.

Информатика

Ответы

Maionova
<html><head> <title>Разделы</title></head><body bgcolor="#EE82EE"> <font size="+1"><font size="5"> <UL><LI><A HREF="1str.htm" TARGET="win">Легенда английской булавки</A></UL> <UL><LI><A HREF="part_1.htm" TARGET="win">Уолтер Хант</A></UL> <UL><LI><A HREF="part_2.htm" TARGET="win">История вещей</A></UL>               <UL><LI><A HREF="zakl.htm" TARGET="win">Заключение</A></UL> <UL><LI><A HREF="part_3.htm" TARGET="win">Гигантская безопасная булавка в Сан-Франциско</A></UL> </font></body></html>
clic1968420

#include <iostream>

int main()  

{

   int a, b, c, d, sum;

   char first, second;

   // Русский язык в консоли

   setlocale(LC_ALL, "Russian");

   std::cout << "Введите a: ";

   std::cin >> a;

   std::cout << "Введите b: ";

   std::cin >> b;

   std::cout << "Введите c: ";

   std::cin >> c;

   std::cout << "Введите d: ";

   std::cin >> d;

   sum = a + b; first = 'a'; second = 'b';

   if (a + c > sum) { sum = a + c; second = 'c'; }

   if (a + d > sum) { sum = a + d; second = 'd'; }

   if (b + c > sum) { sum = b + c; first = 'b'; second = 'c'; }

   if (b + d > sum) { sum = b + d; first = 'b'; second = 'd'; }

   if (c + d > sum) { sum = c + d; first = 'c'; second = 'd'; }

   std::cout << "Пара чисел с максимальной суммой - это числа " << first << " и " << second << ", их сумма равна " <<

       sum << std::endl;

   return 0;

}

Yurevna_Kharkchinov1302

Для начала заводим переменную счетчик для подсчета количества четных и нечетных .

var count,count2:integer;

Далее в теле цикла с массивом, после его вывода добавляем условие if then else

if a[i].IsEven then count+=1 else count2+=1

Т.е. сам цикл будет выглядить так

for i := 1 to n do

 begin

   a[i] := Random(1, 50);

   Write(a[i], ' ');

   if a[i].IsEven then Count += 1 else Count2 += 1;

end;

Вместо a[i].IsEven можно использовать not Odd(a[i]) или уже a[i] mod 2 = 0

Ну а далее уже вывод количеств четных и нечетных

Можно сделать все еще проще.

begin

 var a := ArrRandom(20, 1, 50);

 Println('Четных ', a.Where(z -> z mod 2 = 0).Count, 'Нечетных ', a.Where(z -> Odd(z)).Count);  

end.

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

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

Нужен шаблон html сайта с 5 страницами(по гиперссылками) чтобы я смог туда свою инфу и картинки вставить.
Ваше имя (никнейм)*
Email*
Комментарий*

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

anytkaakk
Алиференко_Елена342
misspodvigina
sveta1308
Алина Ракитин1730
jeep75
Plamia7917
Sergeevna-Makarov
tonyakuznetsova
zoyalexa495
bikemaster
VEZZDEXOD73
Попов1946
tatianaavoronina66
dimoni86