Var c,r:real;
const pi=3.1415;
begin
write('введите радиус окружности');
read(r);
c:=2*pi*r;
writeln('длина окружности равна', c);
end.
Справится стандартная клавиша PRINTSCREEN. Просто нажмите
на нее потом открывайте PAINT и нажимаете сочетание клавиш SHIFT +
INSERT. Сохраняете полученное изображение экрана.
Далее открываете WORD нажимаете ВСТАВИТЬ - РИСУНОК ИЗ ФАЙЛА - Выбираете свое сохраненное изображение. Все =)
1)
var
a:array[1..10] of integer;
i:integer;
begin randomize;
for i:=1 to 10 do a[i]:=random(100)-40;
writeln;i:=1;
while i<=10 do begin
if a[i]<0 then begin a[i]:=0;
i:=11;end;
inc(i);
end;
for i:=1 to 10 do write(a[i]:3);
<span>end.
2)
var a:array[1..10] of integer;
i:integer;
begin
for i:= i to 10 do read(a[i]);
</span>for i:= i to 10 do<span>
if a[i] mod 3 =0 then a[i]:=a[i]*3;
</span>for i:= i to 10 do write(a[i]);
end.
Пример реализации и Excel 2003
Лист защищен без пароля, чтобы случайно не повредить формулы.
Формулы можно посмотреть в строке формул.
#include <iostream>
#include <math.h>
using namespace std;
int main()
{
double W, t, r, y;
cin >> t;
cin >> r;
cin >> y;
W = (4 * pow(t, 3) + log(r)) / (exp(y+r)+7.2*sin(r));
cout << W;
}