Можно ещё использовать оператор выбора case
Program pr;
uses crt;
Var k:integer;
Begin
Writeln('Введите k');
readln(k);
if (k>=1) and (k<=5) then
Begin
case k of
1: Writeln('Плохо');
2: Writeln('Неудовлетворительно');
3: Writeln('удовлетворительно');
4: Writeln('Хорошо');
5: Writeln('Отлично');
end;
end
else Writeln('Ошибка');
readln;
end.
Этих цифр невероятно много. Я просто не сумею столько чисел написать! так что, напишу только те которые смогу.
1023, 1024, 1025, 1026, 1027, 1028, 1029,
1032, 1034, 1035, 1036, 1037, 1038, 1039,
1042, 1043, 1045, 1046, 1047, 1048, 1049,
1052, 1053, 1054, 1056, 1057, 1058, 1059,
1062, 1063, 1064, 1065, 1067, 1068, 1069,
1072, 1073, 1074, 1075, 1076, 1078, 1079,
1082, 1083, 1084, 1085, 1086, 1087, 1089,
1092, 1093, 1094, 1095, 1096, 1097, 1098
Информационный поток - процесс передачи информации от одного объекта другому.При этом информация может видоизменяться, кодироваться, преобразововаться из одного вида сигналов в другие.Основные устройства компьютера - клавиатура, мышь, монитор, видео плата, процессор, ОЗУ, контроллеры, запоминающие устройства(накопители).Процессор это сердце компьютера, главный наблюдатель в процессе информационных потоков компьютера.При включении процессор инициирует процесс загрузки программ из накопителей в озу, он просит котроллеры чтобы поток данных загружался напрямую, по возможности, из накопителей в ОЗУ, минуя внутреннюю память процессора.Время от времени он опрашивает устройства ввода, мышь клавиатуру, на предмет сигналов, в которых закодированны нажатые кнопки, позиции курсора, итд... Если процессор зависнет, зациклится, то нажатия на кнопки не приведут ни к чему,т.к эти устройства никто не опрашивает.Программы, выполняющиеся на процессоре, могут "попросить" процессор выводить информацию на монитор, подавая комманды.Обрабатывая эти комманды процессор, отправляет данные в видео плату, или в котроллер видеоплаты.Видеоплата, получая данные из процессора в свой видео буфер, преобразует их в аналого-цифровой формат для подачи уже в монитор через кабель.
#include<span> <iostream></span>
using namespace std;
int main()
{
float a,b;
cout <<"Введите числа а и b";
cin >>a>>b;
cout <<"Среднее арифметическое чисел "<<a<<" и "<<b<<" = "<<(a+b)/2;
return 0;
<span>}</span>
Var arr:array of char;
var c:char = chr(63);
var str:String;
begin
WriteLn('Введите строку:');
Read(str);if str.length<> 6 then
WriteLn('Длина строки больше или меньше 6.')
else
begin
arr:=str.ToCharArray();
arr[1]:= c;
arr[4]:= c;
arr[5]:= c;
str:= '';
for var i:= 1 to arr.Length do
str+=arr[i-1];
WriteLn(str);
end;
end.
Ввод:
знания
Вывод:
з?ан??
