Дерево - бумага
Рыба - еда
Вода - питьё
Кислород - воздух
Var i, f:integer;
begin
f := 1;
for i:= 1 to 6 do begin
f := f*i;
end;
write(f);
end.
на си(с++)
#include<iostream.h>
void main(){
int a;
int x;
cin>>x;//число на которое должно закончитьс
cin>>a;//число которое вводишь
int b,c,d;
b=a%1000;//остаток от деления на 1000
d=b%100;//остаток от остатка деления на 100
c=d%10;//само число
if (c==x) cout<<"Верно";else cout<<"Не верно";
}
если на паскале тольок вместо % ставите mod и вместо cout write
и в скобках а так в принципе все
Если файл типизированный, то один из вариантов решения задачи такой:
var f: file of real; a,b,r:real;
begin
AssignFile(f,'myFile.dat');
Reset(f);
Read(f,a);
while not eof(f) do read(f,b);
r:=a-b;
//здесь нужно вывести r
Close(f);
<span>end;
Вывод r зависит от того, какое программу Вы делаете - консольное или Windows-приложение.</span>