Var p, q: longint;
n, i, j, c: integer;
begin
// 1
write('n=');readln(n);
for i := 1 to n do begin
q := 1;
for j := 1 to i do q := q * i;
p := p + q;
end;
writeln ('Значение = ', p);
// 2
write('Число годовых оценок=');readln(n);
p:=0;
for i := 1 to n do begin
write('оценка: '); readln(c);
if c = 5 then p := p + 1
else if c = 2 then p := - 1;
end;
writeln(p > 0);
// 3
n := 20; p := MaxInt;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c < p then p := c;
end;
writeln('Минимальная высота: ', p);
//4
n := 20; p := -1;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c > p then p := c;
end;
writeln('Максимальное значение высоты: ', p);
<span>end.</span>
На три вроде),...........................
//Pascal ABC.NET 3.1 сборка 1256
Var
s:string;
a,b:real;
begin
readln(s);
a:=strtofloat(copy(s,1,pos('X',s)-1));
b:=strtofloat(copy(s,pos('=',s)+1,length(s)-pos('=',s)));
if (a=0) and (b=0) then
begin
writeln('X-любое действительное число');
exit;
end
else
if a=0 then
begin
writeln('Нет корней');
exit;
end;
writeln(b/a);
end.
Пример ввода:
-0.1X=10
Пример вывода:
-100
Частота дискретизации 256 Гц, то за 1с запоминается 256 значений сигнала. Используется 4096 = 212 уровней дискретизации, значит, глубина равна 12 бит. Время записи 10 мин это 600 сек, поэтому для хранения информации потребуется 256 * 12 * 600 = 28 * 4 * 3 * 15 * 40 бит = 210 * 3 * 15 * 5 * 8 бит = 225 Кбайт.
#include <iostream>
using namespace std;
int main(){
int now = 1; //tekushee chislo
for(size_t i = 0; i < 10; i++)
{ cout << now << " " << now * now << " " << now * now * now << endl; //vivodim chislo, kvadrat i kub
now += i + 1; //nahodim sledujushee
}
return 0;}<span>
</span>