Ну посчитай, 480 пикселей на 248.
119040
War a, b, x:real
begin
write(a,b)
if (a>b) then x:=a*b
else x:=a-b
println(x)
end
#include <stdio.h>
#include <stdlib.h>
char input[1024];
int len;
int find_mistake()
{
int i, mistake = 0;
for (i = 0; i < len; i ++)
if (input == '1')
mistake ^= i + 1;
return mistake;
}
int main()
{
int i, mistake = 0;
char info[1024];
int info_pos = 0;
int b = 1;
printf("Enter code: ");
scanf("%s", input);
len = strlen(input);
for (i = 0; i < len; i++)
if (input != '0' && input != '1')
<span> { </span>
printf("Invalid code.\n");
<span> return -1; </span>
}
<span> </span>
mistake = find_mistake();
if (mistake)
{
input[mistake - 1] ^= '0' ^ '1';
<span> mistake = find_mistake(); </span>
<span> if (mistake) </span>
<span> { </span>
printf("Invalid code.\n");
return -1;
<span> } </span>
}
<span> </span>
printf("Fixed code: %s\n", input);
for (i = 0; i < len; i++)
if (i + 1 == b)
b <<= 1;
else
info[info_pos++] = input;
info[info_pos] = '\0';
printf("Informational string: %s\n", info);
return 0;
<span> }</span>
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var x:=-3.14;
while x<=3.14 do begin
Writeln(x:5:2,' ',sqr(sin(x))+sqr(cos(x)));
x:=x+0.2
end
end.
Результат
-3.14 1
-2.94 1
-2.74 1
-2.54 1
-2.34 1
-2.14 1
-1.94 1
-1.74 1
-1.54 1
-1.34 1
-1.14 1
-0.94 1
-0.74 1
-0.54 1
-0.34 1
-0.14 1
0.06 1
0.26 1
0.46 1
0.66 1
0.86 1
1.06 1
1.26 1
1.46 1
1.66 1
1.86 1
2.06 1
2.26 1
2.46 1
2.66 1
2.86 1
3.06 1
Текстовый txt, rtf, doc, docx
графический bmp, gif, jpg, png
программы-исполнители exe, com
звуковой wav, mp3, midi, kar, ogg
видеофайл avi, mpeg
код программы на языке программирования bas, pas, cpp