Я знаю только первый.
program chisla;
<span>var </span>
a,n:integer;
c1,c2:char;
<span>begin </span>
<span>writeln('введите количество символов'); </span>
<span>readln(n); </span>
<span>writeln('введите сами символы'); </span>
readln(c1,c2);
<span> if frac(n/2)=0 then </span>
<span>for a:=1 to n div 2 do </span>
<span>begin </span>
<span>write(c1,c2); </span>
<span>end </span>
else
begin
<span> for a:= 1 to n div 2 do </span>
<span>begin </span>
<span>write(c1,c2); </span>
<span>end; </span>
<span>write(c1); </span>
end;
<span>end.</span>
1. а) 5 кбайт = 5 * 1024 = 5120 байт = 5120 * 8 = 40960 бит
б) 12288 бит = 12288 / 8 = 1536 байт = 1536 /1024 = 1,5 кбайт
в) 213 бит = 213 /8 = 26, 625 байт = 26, 625 / 1024 = 0, 03 кбайт
г) 1536 мбайт / 1024 = 1,5 гбайт
1536 мбайт = 1536 * 1024 = 1572864 кбайт = 1572864 * 1024 = 1610612736 байт
2. 1) 30 * 50 * 250 = 375000 символов на 250 стр.
2) 375000 / 8 /1024 = 45,8 Кбайт
Ответ: инф. объем = 45,8 кбайт.
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var n:=ReadInteger('n =');
var sum1:=n mod 10 +n div 1000;
var sum2:= n div 10 mod 10 + n div 100 mod 10;
Writeln('сумма крайних членов равна ', sum1);
Writeln('сумма средних членов равна ', sum2);
end.
Какое где фотография!?!?!!?
Если тебе нужна программа для переворачивания числа,вот тебе она на C :
#include <iostream>
using namespace std;
int main()
{
double x;
double y;
cin >> x; /* Ввод числа */
y = 1/x;
cout << "y = " << y << endl;
return 0;
}