Var x,y:real;
begin
write('x = ');
readln(x);
if x<=-20
then y:=3*x*x*x
else if x<=30 then y:=abs(x) else y:=30;
writeln('y = ',y);
end.
Пример:
x = -5
y = 5
#include <stdio.h>
#include <math.h>
#include <stdlib.h>
int main() {
float a_1, a_2, a_3, x;
printf ("vvod a_1, a_2, a_3\n");
scanf ("%f %f %f",&a_1,&a_2,&a_3);
printf ("Proizved = %f\n",a_1*a_2*a_3);
printf ("Sred geometr = %f\n",pow(a_1*a_2*a_3, 1.0/3));
printf ("vvod x\n");
scanf ("%f",&x);
printf ("Po form: %f\n",exp(1.0/(3*x))-abs(3*x*x-pow(pow(x+1,4)+log((pow(x,4)+4)/(pow(x,2)+2)),1.0/5)));
int a;
printf ("vvod a\n");
scanf ("%d",&a);
int c=a%10*10+a/10;
printf ("%d",c);
system ("pause");
}
Пример:
<span>vvod a_1, a_2, a_3
2 3 5
Proizved = 30.000000
Sred geometr = 3.107233
vvod x
4
Po form: -42.913096
vvod a
71
17</span>
Var s:string;
i:integer;
begin
writeln('Введите строку:');
readln(s);
for i:=1 to length(s) do
if i mod 2 = 0 then s[i]:='!';
writeln(s);
end.
Пример:
Введите строку:
Дана строка состоящая из символов
Д!н! !т!о!а!с!с!о!щ!я!и! !и!в!л!в
Program zad1;
const N = 6;
var a: array[1..N] of integer;
i: byte;
b: integer;
begin
for i:=1 to N do
read(a[i]);
for i:=1 to N div 2 do
begin b := a[i];
a[i] := a[N-i+1];
a[N-i+1] := b;
end;
for i:=1 to N do
write(a[i],' ');
writeln;
end.
1) 8 бит это весит обычно 1 символ
2) 70*8*30*5=8400 бит