1 байт-8 бит
_______________________
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(Range(2,2*ReadInteger('n='),2).Aggregate(BigInteger(1),(m,n)->m*n))
end.
<u>Пример</u>
n= 37
1891675820705153808241239602722999673157373132800000000
#include <stdio.h>
#include <math.h>
int main()
{
float x,y,z,F;
printf("Введите переменную x:\n");
scanf("%f",&x);
printf("Введите переменную y:\n");
scanf("%f",&y);
printf("Введите переменную z:\n");
scanf("%f",&z);
F = x-x*x/(1 + pow(sin(x+y+z),2));
printf("Значение выражения равно %lf\n", F);
return 0;
}
Пример:
<span>Введите переменную x:
2.1
Введите переменную y:
0.8
Введите переменную z:
-3.5
Значение выражения равно </span><span>-1.243895</span>
Program Kolobok;
var zver:string;
begin
writeln('Ispekla babka kolobka i postavila yego na okoshko ostuzhatsya');
writeln('Ubezhal kolobok ot deda i ot babki i pokatilsya po dorozhke');
writeln('Kolobok katitsya, a navstrechu yemu zver');
writeln('Vvod zverya');
readln(zver);
if Zver = 'lisa' then
begin
writeln('Kolobok poyot pesenku dva raza');
writeln('Proshchay, Kolobok ...');
end
else
begin
writeln('Kolobok poyot pesenku');
writeln('Katitsya dalshe');
end;
end.
Ответ:
rs1 = золото
rs2 = промышленник
rs3 = пленник
rs4 = мышление
temp = ленник
На экране
золото промышленник пленник мышление
Объяснение:
Функция Copy возвращает подстроку строки (получается новая строка).
Copy(S, Index, Count)
S - строка. Index и Count - целые числа. Функция Copy копирует часть строки S начиная с буквы с номером Index содержащую Count букв.
Процедура Delete - удаляет подстроку из строки (изменяется указанная строка).
Delete(S, Index, Count)
S - строка. Index и Count - целые числа.Процедура Delete удаляет из строки S, начиная с буквы с номером Index - Count букв.
Функция Length - возвращает длину строки (получается целое число).
Length(S)
S - строка.
s = золотопромышленник
rs1 = copy (s,1,6) = золото
rs2 = copy (s, length(rs1)+1,length(s)-length(rs1) = copy (s,6+1,18-6) = copy (s,7,12) = промышленник
temp = s = золотопромышленник
delete (temp,1,12)
temp = ленник
rs3 = s[7]+temp = п+ленник = пленник
rs4 = s = золотопромышленник
delete (rs4,1,9)
rs4 = мышленник
delete (rs4,7,1)
rs4 = мышленик
rs4[length(rs4)] = rs4[5]
rs4[8] = rs4[5]
к = е
rs4 = мышление
Выводим слова на экран через пробел.