sanina611
?>

Pascal abc y=x/2 x> 25 x+4 x< 25

Информатика

Ответы

rikki07834591

program task31057170;

var

 x: integer;

 y: real;

begin

 Writeln('ВВЕДИТЕ X: ');

 Readln(x);

 if x > 25 then

   y := x / 2

 else if x < 25 then

   y := x + 4

 else Writeln('Error: x = 25!');

 Writeln('Y = ', y);

end.

kapral1812

Пернетақта пернелері атқаратын қызметіне қатысты келесідей топтарға бөлінеді:

• Енгізу пернелері(алфабиттік-цифрлық) - мұнда қарапайым баспа машинасында болатын пернелер жинақталады, яғни әріптік, сандық және символдық пернелер.

• Басқару пернелері – бұл пернелер жеке түрінде немесе басқа пернелермен бірге басыла отырып нақты әрекеттерді орындайды. Көбінесе CTRL, ALT, Windows белгісі бар перне и ESC қолданылады..

• Функционалдық пернелер – арнайы тапсырмаларды орындау үшін қолданылады. Олар F1, F2, F3 және ары қарай F12 дейінгі пернелер тізбегінен тұрады. Түрлі бағдарламаларға қатысты бұл пернелердің қызметтері әр түрлі болып келеді.

• Орын ауыстыру пернелері - бұл пернелер құжаттарда, веб-беттерде және тексті түзетуде орын ауыстыру үшін қолданылады. Оларға бағыттауыш пернелер,сондай-ақ, HOME, END, PAGE UP, PAGE DOWN, DELETE және INSERT пернелері жатады.

• Сандық пернетақта – бұл пернетақта сандарды тез енгізу үшін өте ыңғайлы. Ондағы пернелер қарапайым калькулятор немесе есептеу машинасына сәйкес топталып жинақталған.

Енгізу пернелері

Деректерді енгізу пернелеріне негізгі алфабиттік-цифрлық және символдық пернелер еніп, сондай-ақ төмендегідей пернелерді қамтиды:

SHIFT - Бас әріптерді енгізу үшін қолданылады

CAPS LOCK - Бір рет басу арқылы бас әріптерді енгізу режиміне көшеміз, ал екінші рет басқан кезде ол қасиеті өшіріледі. Бұл перненің қосып/өшірілуі пернетақтада түстік индикатормен көрсетілуі мүмкін.

TAB - Курсорды бірнеше бос орынға(абзац) жылжыту үшін қолданылады.

ENTER - Жаңа жолға өту үшін қолданады.Сұқбаттық терезелерде белгіленген батырманы таңдау үшін қолданылады.

БОС ОРЫН - Курсорды бір бос орынға жылжыту үшін қолданады..

BACKSPACE - Курсордың алдындағы символды немесе белгіленген тексті өшіру үшін қолданады.

Объяснение:

necit12
#include <iostream>
#include <conio.h>
#include <time.h>
using namespace std;

void main()
{
 srand(time(NULL));
 setlocale(0, "");
 int arr[17];
 int a, b, chet=0, nechet = 0;
cout << "Введите диапазон ." << endl << "Нижняя граница диапазона: "; cin >> a; cout << "Верхняя граница диапазона: "; cin >> b; cout << endl;
for (int i = 0; i < 17; ++i)
{
  arr[i] = a + rand() % (b-a+1);
  cout <<" "<<arr[i];
}
for (int i = 0; i < 17; ++i)
{
  if (arr[i] % 2 == 0) chet++;
 else nechet++;
} if (chet > nechet)
 cout << " \n Четных больше";
else if (nechet>chet)
 cout << "\n Нечетных больше";
else cout << "\n Одинаковое количество четных и нечетных";
 _getch();
}

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

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

Pascal abc y=x/2 x> 25 x+4 x< 25
Ваше имя (никнейм)*
Email*
Комментарий*

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

galtig83
msangelika1010
elenalukanova
gbg231940
benonika
Беспалова
margusha1974
mzia-mzia-60682
oskina3
praktikadok
slonikkristi69
market-line5260
pak1998378
nebo2020
beglovatatiyana