var
a: array[1..5] of integer;
i, z, x: integer;
begin
z := -1;
x:=1;
for i := 1 to 5 do
begin
read(a[i]);
if (a[i] >z) then z := a[i];
if (a[i] <x) then x := a[i];
end;
writeln(z - x);
end.
Программа на языке Pascal. Программа получает число из файла input.txt и записывает результат в файл output.txt
var a: real;
f: text;
begin
assign(f,'input.txt');
reset(f);
read(f,a);
close(f);
assign(f,'output.txt');
rewrite(f);
write(f,a/3);
close(f);
end.
Процессор, внешняя память, внутренняя память, устройство управления, манитор, принтер, мышь
var a: real;
begin
readln(a);
writeln((2 * a * a * a + 8)/(3 * a));
end.
#include<iostream.h>
#include<conio.h>
int s[100],i,n,k,t[100],j;
main(){ randomize();
cin>>n;
for(i=0;i<n;i++){
s[i]=random(100000);
cout<<s[i]<<" ";}
cout<<endl;
j=-1;
for(i=0;i<n;i++) {
k=s[i]/10;
if(k%10==0){ j++; t[j]=s[i];}}
if(j==-1)
cout<<"NET NI ODNOGO CISLA KOTORII OTVECEAET TREBOVANIIAM"<<endl;
else for(i=0;i<=j;i++)
cout<<" "<<t[i]<<endl;
getch();}