1) fff,sred_sk,r34,Y4,h3щя67b.
2)
- 0
- 6
- 49
- 7
- 6
- 45.45
- 6
- 16
- 654
- любое число
- любое число в диапазоне от 0 до 453
3) begin -оператор начала программы.
real - применяется при значении вещественных переменных.
and - логическая операция имеющая значение "и".
write - выводит на экран данные.
var - ключевое слово для описания переменных.
char - применяется при значении буквенных переменных,то есть где участвуют слова.
integer - применяется при значении целых чисел.
4) b = (1+(c/(6+a*c)))/(5+a)
Эвристический. типа анализ кода подозрительных файлов
Очень простой алгоритм:
Program Alexey;
{программа запрашивает у пользователя значения ежедневной температуры за 14 дней, и выводит максимальное и минимальное значения и в какие дни температруа достигала этих значений, а также вычисляет среднюю температуру за 2 недели}
uses crt;
const n=14;
var
i, daymax, daymin:integer;
t,max,min,sum:real;
begin
writeln('Введите температуру за каждый день');
write('День 1-й: T = ');
readln(t);
max:=t;
min:=t;
sum:=t;
for i:=2 to 14 do //организуем цикл
begin
write('День ',i,'-й: T = ');
readln(t);
if t>max then
begin
max:=t; // найдено новое максимальное значение
daymax:=i; // запоминаем соответствующий номер дня
end;
if t<min then
begin
min:=t; // найдено новое минимальное значение
daymin:=i; // запоминаем соответствующий номер дня
end;
sum:=sum+t; //суммируем все значения t
end;
writeln();
writeln('Максимальная температура была на ',daymax,'-й день: ',max,' градусов');
writeln('Минимальная температура была на ',daymin,'-й день: ',min,' градусов');
writeln('Средняя температура за 14 дней: ',sum/14,' градусов');
end.
<em>// PascalABC.NET 3.3, сборка 1541 от 29.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var Color:array of string:=('red','orange','yellow','green','blue','magenta');
var MyColor:=ReadlnString('Введите цвет:').ToLower;
var i:=Color.IndexOf(MyColor);
if i<0 then Writeln('Неверный цвет')
else Writeln('Номер цвета равен ',i+1)
end.
<u>Пример</u>
Введите цвет: Green
Номер цвета равен 4
Представим 126 в двоичной системе. Это 1111110. Тогда число которое поступило является 11111=> 16+8+4+2+1=31
Запишем по алгоритму, что должно получиться при вводе числа 11111. складываем и делим на 2. Остаток 1. Пишем 111111 дальше ещё раз складываем и делим. Получаем 1111110. Но число должно быть больше чем 126=> нам будет подходить число 1111111=>127. Минимальное число будет 127.