Программа на языке 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.
<span>var a:array [1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(50);
s:=s+a[i];
write(a[i],' ');
end;
writeln;
writeln ('summa=',s);
readln;
end.</span>
Ни как надо переписывать
не ленись бро : )
1) Python:
nn = int(input())
k = 1 + (nn-1) // 3 * 2 + (nn-1) % 3
print (k)
2) Pascal:
var nn,k : longint;
begin
read (nn);
k:=1+(nn-1) div 3 * 2+(nn-1) mod 3;
write (k);
end.
Сделай презентацию про любимую музыкальную группу. Или про город, в котором ты родился и живёшь, про субкультуры или современный вид искусства (граффити,например). Смысл ведь в том,чтобы понять принцип создания презентации? Так выбирай всё,что душе угодно :)